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BASIC 


1 Entrada 
de datos: Input 


A instrucción INPUT 
nos permite asignar 
un contenido a una 
variable desde el te- 
clado. Un primer for- 
mato general sería el 
siguiente: 


INPUT < lista de variables> 


donde la lista de variables se compone 
por tantas variables como datos desee- 
mos introducir posteriormente desde el 
teclado al ejecutar el programa. Gene- 
ralmente todas estas variables se sepa- 
ran entre sí con comas. Lógicamente, si 
los datos que vamos a introducir son de 
tipo numérico tendremos que emplear 
variables numéricas, mientras que si son 
de tipo altanumérico (cadenas), em- 
plearemos variables alfanuméricas. En 
cualquier caso, siempre podemos utilizar 
ambos tipos de variables en un mismo IN- 
PUT si estamos manejando datos de los 
dos tipos. 

Veamos un primer ejemplo. El progra- 
ma 1 es una modificación del programa 
3 de modo que resulta mucho más gene- 
ral, ya que permite calcular el área y el 
perímetro de una circunferencia de cual- 
quier radio. 


cL.sS 

29 INPUT kE 

30 LET AREA=3.1416x*5R"2 

40 LET FERIM=2*3.1415x%R 

5 PRINT "RADIO="5k 

Ei PRINT "AREA="5 AREA 
ROPRINT "PERIMETRO="3PERIM 


Al ejecutar el programa (RUN) lo prime- 
ro que hace el ordenador es borrar la 
pantalla gracias a la instrucción CLS de 
la línea 10 (si nuestro ordenador es un 
COMMODORE, la instrucción para borrar 
la pantalla es 10 PRINT CHR$(147). A con- 
tinuación aparece en pantalla una in- 
terrogación, que indica que el ordena- 
dor está esperando un dato. En este mo- 
mento podemos introducir el dato que 
deseemos, que en este caso tendrá que 
ser de tipo numérico, ya que le vamos a 
suministrar el radio de una circunferencia 
(y, por tanto, hemos empleado una va- 
riable numérica). Después de teclear el 
dato debemos pulsar la tecla INTRO (o su 
equivalente) para que el ordenador al- 
macene dicho dato en memoria y conti- 
núe la ejecución del programa, que fina- 
lizará con la impresión en pantalla de los 
resultados. 

Como podemos ver, la instrucción IN- 
PUT presenta una gran ventaja, ya que 
cada vez que ejecutemos el programa 
podremos asignar un valor distinto al ra- 
dio. 

Sin embargo, todavía encontramos un 
inconveniente. ¿Qué sucedería sl hicié- 
ramos un programa con varios INPUT, o 
con un solo INPUT pero con varias varia- 
bles? Probablemente no sabríamos qué 
dato nos está pidiendo en cada momen- 
to o en qué orden debemos introducirlos. 

Para solucionar este problema pode- 
mos conseguir que el ordenador diga lo 
que pide poniendo mensajes en el INPUT. 
De este modo tenemos un nuevo forma- 
to: 


INPUT “mensaje”; <lista de variables > 


Probemos a sustituir la línea 20 del pro- 
grama 1 por la linea siguiente: 


20 INPUT “DIME EL RADIO";R 


Al ejecutar ahora el programa apare- 
ce en pantalla el mensaje encerrado en- 
tre comillas, entonces podemos teclear 
el valor que deseamos asignar a la varia- 
ble R (y pulsar INTRO). El resto del progra- 
ma evoluciona igual que antes. 

Veamos ahora un ejemplo para intro- 
ducir desde el teclado cadenas de ca- 
racteres. El programa 2 nos permite intro- 
ducir tres datos alftanuméricos y uno nu- 
mérico. 


10 ELS 
20 INPUT "MARCA DEL VEHICULO ";U$ 

30 INPUT "MATRICULA "M8 

40 INPUT [COLOR *;C$ 

50 INPUT "ANTIGUEDAD "¡A 

¿6D CLS 

70 PRINT TAB(12);"DATOS DEL VEHICULO" 
30 PRINT Es 
70 PRINT "MARCÁ:",V$ 

100 PRINT "MATRICULA:",MS 

110 PRINT "COLOR:",C$ 

120 PRINT "ANTIGUEDAD: *",A 


Recordemos que tras suministrar un 
dato debemos pulsar INTRO para que el 
ordenador pase a solicitarnos el dato si- 
guiente. Después de introducidos los da- 
los se borra la pantalla (línea 60) y a con- 
tinuación se imprimen de forma ordena- 
da a modo de tabla (líneas 70 a 120). El 
PRINT de la línea 80 deja una línea vacía. 

En la figura 1 podemos ver el resultado 
final de una posible ejecución de este 
programa. 


DATOS DEL VEHICULO 


MARCA: 
MATRICULA: 


RENAULT 11 
M-1400=EK 


COL ce RO3O 
ANTI EDAD: Ss 


¡A Esta es una posible ejecución del progra- 
ma 2. 


Por otra parte, y como ya hemos dicho, 
podemos poner varias variables en un 
mismo INPUT, lo que nos permite abreviar 
los programas. Para comprobar esto po- 
demos sustituir las líneas 20, 30, 40 y 50 
del programa 2 por una sola línea: 


20 INPUT “MARCA, MATRICULA, COLOR Y 
ANOS DEL VEHICULO”; VS, M$,C$,A 


Sin embargo, el modo de introducir los 
datos cuando se utiliza este formato pue- 
de variar un poco de unos ordenadores 
a otros. Así, en SPECTRUM y COMMODORE 
debemos pulsar INTRO después de intro- 
ducir cada dato, mientras que en IBM, 
AMSTRAD o MSX se teclean todós los da- 
tos separados por comas y se pulsa IN- 
TRO una sola vez al final. 

Como resumen, debemos respetar 
siempre las siguientes reglas sobre INPUT: 


— Un único mensaje. 

— Separado por punto y coma un 
nombre de variable. 

— Y separados por comas el resto de 
los nombres de las variables, 


El único ordenador que permite saltar- 
se estas normas es el SPECTRUM, que ad- 
mite cualquier combinación de separa- 
dores (coma y punto y coma), así como 
el número de mensajes que se deseen. 

En ocasiones puede suceder que de- 
seemos interrumpir la ejecución de un 
programa que está detenido en un INPUT 
esperando un dato. El modo de hacerlo 
varía de unas máquinas a otras, aunque 
siempre hay una tecla o combinación de 
ellas que permite hacerlo. En la figura 2 
podemos ver una tabla que nos muestra 
el modo de detener la ejecución del pro- 
grama en los principales ordenadores. 


COMMODORE | RUN/STOP + RESTORE 


¡A Métodos para detener la ejecución en 
un INPUT. 


Finalmente, en algunos ordenadores 
como IBM, AMSTRAD o MSX, podemos en- 
contrarnos que INPUT no admite separa- 
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dores incluidos dentro de una cadena de 
caracteres. Este problema se puede re- 
solver con un nuevo formato. 


LINE INPUT <Lista de variables allanumerl!- 


Su efecto es incluirtodos los caracteres 
que se tecleen, incluidos los separado- 
res, como valor de una sola variable has- 
ta que pulsemos INTRO. 

En los ordenadores que no disponen de 
LINE INPUT se puede solucionar este pro- 
blema tecleando la cadena que conten- 
ga separadores entre comillas. 


um Comentarios en líneas de 
== programa: REM 


En muchas ocasiones manejaremos 
programas elaborados por otras perso- 
nas. Si antes de utilizarlos no nos han ex- 
plicado su funcionamiento, tendremos 
que estudiar detenidamente su listado, 
lo cual puede resultar laborioso si es muy 
largo. También nuestros propios progra- 
mas pueden ser difíciles de reconocer si 
ha pasado mucho tiempo. Por estas razo- 
nes siempre es conveniente introducir 
entre las líneas del programa algún co- 
mentario que explique su funcionamien- 
to. 

Para cubrir esta finalidad contamos 
con la instrucción REM, abreviatura de la 
palabra inglesa REMARK (nota, comenta- 
rio, observación). Detrás de una instruc- 
ción REM podemos escribir cualquier co- 
mentario que deseemos. Cuando el or- 
denador encuentra. una instrucción REM 
al ejecutar un programa, ignora dicha lí- 
nea, es decir, no la ejecuta, Por tanto, la 
instrucción REM tiene utilidad para el 
usuario, pero no para la máquina. De to- 
dos modos, tampoco conviene abusar 
de las líneas REM, ya que, aunque no son 
ejecutables, ocupan memoria. 

Veamos un ejemplo. Vamos a desarro- 
llar un programa que nos permita calcu- 
lar el volumen de un cilindro en función 
del rádio de la base y de la altura. Recor- 


demos que la fórmula matemática para 
calcularlo es: V = 3.1416'*R”H. 


$ REM VOLUMEN DEL CILTNDRO 
26 CLS 
39 INPUT “RADIO “3R 
46 INPUT "ALTURA “3H 
596 LET V=3.1414x*R"2H 
6% PRINT 


TO PRINT "VOLUMEN="¿V 


En el programa la línea 10 es un 
mero comentario que sirve para titular el 


programa, por tanto, la ejecución co- 
mienza realmente en la línea 20, borrán- 
dose la pantalla. A continuación el orde- 
nador nos pide un valor para el radio. 
Una vez que se lo hemos dado nos pide 
otro valor para la altura. Tras darle este 
segundo dato calcula el volumen (línea 
50) e imprime el resultado en pantalla Clí- 
nea 70). La línea 60 deja una línea de la 
pantalla en blanco. 

Por último, si quisiéramos poner un títu- 
lo a cada uno de los programas que he- 
mos hecho hasta el momento no tendría- 
mos más que teclear una línea REM con 


el título correspondiente y con un núme- 


ro de línea entre 1 y 9. Así, por ejemplo, 


para titular el programa 1, podríamos te- 
clear: 


5 REM AREA Y PERIMETRO DE UNA 
CIRCUNFERENCIA 


No importa que ésta sea la última línea 
que tecleamos, ya que la máquina se en- 
carga de ordenar todas las líneas que 
componen un programa por números de 
líneas crecientes. De modo que, como 
las líneas de programa se numeran nor- 
malmente de 10 en 10, siempre podemos 
intercalar alguna línea que se nos haya 
olvidado, utilizando un número de línea 
intermedio. El ordenador se encargará 
de situarla en la parte del programa 
correspondiente. 


A hemos visto que 
mediante el mandato 
«A» del DEBUG se pue- 


blaje de instruccio- 

nes conforme se van 
escribiendo. Este pro- 

cedimiento que nos 
ha permitido empezar a escribir y ejecu- 
tar programas desde el primer momento 
puede resultar instructivo, pero no se 
puede considerar un procedimiento ge- 
neral aplicable a cualquier caso. 

Hay dos problemas importantes en el 
uso del mandato «A» del DEBUG. En primer 
lugar, no se pueden usar símbolos para 
referirse a la memoria, sino que hay que 
especificar las direcciones en código 
hexadecimal, y, en segundo lugar, no se 
pueden insertar nuevas instrucciones en- 
tre las que se tenían previamente escri- 
tas. Estos dos inconvenientes obligan a 
que las modificaciones tengan que ha- 
cerse volviendo a escribir parcial o total- 
mente el programa, 

El método que ahora proponemos, que 
es el habitual, consiste en ensamblar en 
bloque todo el programa fuente para 
constituir un nuevo fichero que contiene 
lo que se denomina «programa objeto». 
El proceso completo, que se describe a 
continuación, consta de tres pasos: 


1. Escritura o modificación del «pro-: 


grama fuente» utilizando cualquier editor 
de textos. - 
2. Ensamblaje del «programa fuente» 
y obtención del «programa objeto» me- 
diante el programa MASM. 
3. Obtención del «programa ejecuta- 


de realizar el ensam- 
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ble» a partir de uno o más «programas ob- 
jetos», sirviéndose del programa LINK. 


El proceso puede resumirse en el si- 
guiente esquema: 


Teclado 


Editor 


Programa fuente 


Programa objeto 


LINK 


a 
O Programa fuente | 


Se llama «programa fuente» al fichero 
que contiene el texto escrito por el usua- 
rio, y que, dividido en líneas denomina- 
das sentencias, describe en lenguaje 
simbólico las tareas que debe realizar el 
microprocesador. 

Desde el punto de vista formal, el pro- 
grama fuente es un fichero de texto 
como cualquier otro y podemos escribir- 
lo utilizando cualquier editor de textos. 

Se puede usar el EDLIN que viene inclui- 
do en el disquete del DOS. Este progra- 
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ma edita línea a línea y puede servir 
para escribir programas cortos que no 
vayan a ser sometidos a muchos cam- 
bios. 

Para escribir programas largos o que 
vayan a estar sometidos a muchas modi- 
ficaciones el EDLIN puede resultar dema- 
siado tedioso. En su lugar, recomenda- 
mos el uso del «Personal Editor» o cual- 
quier otro editor de pantalla completa. 

Debido a la gran variedad de editores 
existentes, el manejo de los mismos es un 
tema muy extenso que, por otra parte, se 
sale del ámbito de esta sección y es un 
tema en el que no vamos a entrar. 

Así que, sea cual sea el editor elegido, 
escribamos un fichero de texto de nom- 
bre PROG1.ASM que contenga el siguien- 
te programa fuente: 


CODIGO SEGMENT 
ASSUME CS: CODIGO 
PROC FAR 


m EX, OFOH 
BUCLE: cx 
EX. 7DOH 


si,2 
di,O 
MOVSW 


Ex 
BUCLE 


CODIGO ENDS 
END PROG1 


Esta es una versión del programa SIM- 
BOLO (propuesto anteriormente para ser 
escrito con el DEBUG), adaptada para ser 
ensamblada con el programa MASM. Los 
cambios que ha sido necesario introdu- 
cir se han escrito con mayúsculas y se co- 
mentarán en otra ocasión. 


O Programa objeto : 


Como ya hemos dicho, el programa 
fuente no es directamente entendible 
por el microprocesador. Para que pueda 
ser entendido hay que someterlo a un 
proceso de traducción que se llama «en- 
samblaje». 


Existen dos programas que pueden ha- 
cer esto. Uno de ellos es el programa 


“MASM («Macro Assembler»), y el otro es 


una versión reducida del mismo llama- 
da ASM («Assembler»). En la versión redu- 
cida se han eliminado algunas instruc- 
ciones que no son imprescindibles y pue- 
de funcionar en máquinas de 64 K en lu- 
gar de las 96 K que necesita el primero. 

Mientras no se diga expresamente lo 
contrario, los programas que se pongan 
como ejemplo en esta sección podrán 
ser procesados indistintamente por cual- 
quiera de los dos ensambladores cita- 
dos. 

En el proceso de ensamblaje intervie- 
nen los cuatro ficheros siguientes: 

— El fichero que contiene el programa 
fuente. Cuyo nombre debe ser obligato- 
riamente especificado. Sin embargo, su 
extensión es opcional y se le asigna .ASM 
en caso de que sea omitida. 

— Un fichero generado durante el en- 
samblaje, que contiene el programa ob- 
jeto. Si no se especifica, su nombre se 
toma igual al del programa fuente y su 
extensión se toma .OBJ en caso de ser 
omitida. 

— Un fichero generado durante el en- 
samblaje, que contiene un listado de los 
programas fuente y objeto así como los 
posibles errores producidos. En caso de 
omitir su nombre y su extensión, no se ge- 
nera este fichero. Si sólo se omite su ex- 
tensión, se le asigna .LST. 

— Un fichero generado durante el en- 
samblaje que contiene información so- 
bre las referencias cruzadas. Este fichero 
se utiliza en casos muy excepcionales. 
Recomendamos omitir sistemáticamente 
su nombre para que no sea generado. 


Hay dos formas de llamar al programa 
MASM. 


— La primera es la forma conversacio- 
nal, en ella MASM pregunta por los cua- 
tro ficheros involucrados, indicando en- 
tre corchetes el nombre que tomará por 
omisión. Para los dos últimos ficheros el 
nombre de omisión es NUL, que significa 
fichero nulo, es decir, no generar ese fi- 
chero. ] 

A continuación se expone el conteni- 
do de la pantalla cuando se ensambla el 
programa PROG1.ASM anteriormente lis- 
tado para obtener los ficheros 
PROG 1.0BJ y PROG 1.LST usando la moda- 
lidad conversacional. 


A> MASM 


Warning Severe 
Errors Errors 
o 


— La segunda forma de llamar al en- 
samblador consiste en especificar los fi- 
cheros deseados en la línea de llamada. 
Para ello hay que escribir MASM, seguido 
de un blanco, seguido de los nombres de 
los ficheros deseados separados por co- 
mas y terminando por punto y coma. Los 
nombres de los tres últimos ficheros pue- 
den ser omitidos, en cuyo caso podrán 
aparecer dos o más comas seguidas. 

Para especificar de esta forma los mis- 
mos ficheros que en el ejemplo anterior 
habría que escribir: 


A> MASM PROG 1,,PROG1;: 


Las comas que preceden inmediata- 
mente al punto y coma pueden omitirse. 

El caso más frecuente y más sencillo de 
especificar es aquel en el que se quiere 
ensamblar el programa fuente 
PROG1.ASM para generar el programa 
objeto en el fichero PROG 1.0BJ y listar di- 
rectamente en la pantalla los errores en- 
contrados. Esto se consigue especifican- 
do: 

A> MASM PROG 1; 


m Programa ejecutable 


El «programa objeto» producido por el 
ensamblador no es todavía directamen- 
te ejecutable, sino que debe ser someti- 
do a un último proceso llamado «monta- 
je». Este proceso lo realiza el programa 
LINK, y consiste en generar un nuevo fi- 


IBM Personal Computer MACRO Assembler Version 1.81 
(C)>Copyright IBM Corp 1981, 1984 
(C)>Eopyright Microsoft Corp 1981, 1984 
Source filename [.ASMJ: PROGi 
Object filename [PROG1.0BJJ: 
Source listing [NUL.LSTI: 
Cross reference [NUL.CRFI: 


PROG1 


chero que llamaremos «programa ejecu- 
table» a partir del «programa objeto» o a 
partir de varios «programas objetos». 

La necesidad de este paso surge cuan- 
do se realizan programas complicados. 
Normalmente, los programas complica- 
dos se diseñan por partes, que constitu- 
yen diferentes programas fuentes (que 
en muchos casos están escritos por dife- 
rentes personas). 

El problema aparece cuando en un 
programa fuente se escribe una instruc- 
ción en la que se hace referencia a una 
tarea o a un dato contenido en un pro- 
grama diferente. Esto recibe el nombre 
de «referencia externa». Cuando el en- 
samblador llega a una instrucción de 
este tipo se encuentra con el problema 
de que no puede traducirla, ya que no 
conoce la dirección de memoria de di- 
cha «referencia externa». 

¿Qué hacer en este caso? Pues lo úni- 
có posible: dejar la instrucción sin tradu- 
cir y poner una marca al principio del 
programa objeto avisando de esta cir- 
cunstancia. 

Cuando se han ensamblado todos los 
programas fuente y se procede finalmen- 
te a reunirlos en un único programa eje- 
cutable, el LINK adjudica una posición en 
memoria a cada uno de los objetos. Una 
vez hecho esto, el LINK conoce las direc- 
ciones de todas las referencias externas 
y puede ya abordar la tarea de comple- 
tar la traducción de las instrucciones que 
no había podido realizar el ensamblador. 

Evidentemente, para los programas 
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sencillos, constituidos por un solo progra- 
ma fuente, el montaje podría haberse 
evitado, pero no se ha hecho así. Y es 
ésta una pequeña incomodidad que hay 
que sufrir como pago a tener una herra- 
mienta mucho más general. 

En el proceso de montaje con el LINK 
deben especificarse cuatro tipos de fi- 
cheros: 


1. El fichero o los ficheros de los pro- 
gramas objetos, cuyos nombres deben 
formar una lista separados por blancos o 


por signos más (+), y cuyas extensiones 


pueden 'omitirse en caso de ser .OBJ. 

2. El fichero que contendrá el progra- 
ma ejecutable. Si no se especifica, su 
nombre se toma igual al del primer pro- 
grama objeto y su extensión se toma .EXE 
en caso de ser omitida. 

3. Un fichero generado durante el 
montaje, que contiene un listado con las 
posiciones de memoria que le han 


A> LINK 


Run File [A:PROG1.EXEJ: 
List File [NUL.MAPI: 
Libraries [.LIBJI: 


cificar los ficheros deseados en la línea 
de llamada. Para ello hay que escribir 
LINK, seguido de un blanco, seguido de 
los nombres de los ficheros deseados, se- 
parados por comas, y terminando por 
punto y coma. Las nombres de los tres úl- 
timos ficheros pueden ser omitidos, en 
cuyo caso podrán aparecer dos o más 
comas seguidas. 

Para especificar de esta forma el mis- 
mo proceso que en el ejemplo anterior 
habría que escribir: 


A > LINK PROG1,..; 
o bien, omitiendo las comas finales: 


IBM Personal Computer Linker 
Version 2.10 (C)Copyright IBM Corp 1981, 1982, 1983 


Object Modules [.0BJJ: PROGi 


Warning: No STACK segment 


There was 1 error detected. 


correspondido a los diferentes progra- 
mas objeto, así como los posibles errores 
producidos. En caso de omitir su nombre 


y su extensión este fichero no es genera- 


do. Si sólo se omite su extensión, se le 
asigna .MAP. 

4. Elfichero o ficheros que constituyen 
las bibliotecas, las cuales se utilizan nor- 
malmente en el proceso de objetos pro- 
ducidos por los distintos compiladores, 
En esta sección vamos a prescindir de 
ellas. 


El programa LINK puede utilizarse de 
tres formas: 


— La primera forma consiste en escri- 
bir el nombre LINK y limitarse a responder 
los nombres de los ficheros pedidos. A 
continuación se expone un ejemplo de 
cómo obtener el programa ejecutable 
PROG 1.EXE a partir del programa objeto 
PROG 1.0BJ anteriormente ensamblado. 

— La segunda forma consiste en espe- 


A —> LINK PROG! : 


— La tercera forma, que es mediante 
el fichero de respuestas automáticas, 
puede ignorarse, ya que no se necesita- 
rá en esta sección. 

Con todo esto hemos pretendido dar 
una visión general aunque no exhaustiva 
de las distintas formas en que pueden in- 
vocarse los programas MASM y LINK. Se 
ha dejado aparte el tema de los paráme- 
tros de estos programas, porque su utili- 
zación sólo es necesaria en casos que 
caen fuera del propósito de esta sec- 
ción. 


Programa: 
”] Gestor 
- de ficheros 


L programa que apa- 
rece a continuación 
nos va a permitir la 
realización y defini- 


nosotros deseemos. 
-, Podremos introducir 
lodos los datos que queramos sobre 
cualquier materia, ya que somos noso- 
lros mismos los que definiremos la longi- 
tud de cada registro, de cada campo de 
cada registro, el nombre de cada regis- 
MO... 


MENU GENERAL 


- INTRODUCIR FICHAS 
-GES TIONAR FICHAS 
ORDENAR FICHAS 


EUSCAR FICHAS 
-GRABAC ION 
LECTURA 
- IMPRESORA 
8 -TERMINAR 
INTRODUZCA OPCION 


] A | Menú general del programa «Gestor de 
ficheros». 


ción de cualquier 
tipo de fichero que 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


Por favor, responda a las preguntas que 
le van a aparecer a continuacion. 
Ss cocino oooooooo2=20 


Cuantos campos tendra cada ficha?? 


A | El programa permite definir los ficheros que 
lA queramos y como queramos. 


El programa también está preparado 
para definir la impresión por impresora. 
Nos permite buscar fichas, borrar fichas, 
modificarlas... 


FUSQUEDA DE FICHAS 


VER FICHAS 
EUSCAR FOR CAMFO Y VALOR 
EUSCAR FICHAS EORRADAS 


INTRODUZCA OFCION y 


4 Menú de búsqueda de fichas. 


2 PROGRAMAS 


Poco más hay que decir sobre el funcionamiento del programa, ya que éste es au- 
toexplicativo. 


100 REM AMS SOS OOiO OO jojajoalok 
110 REM * GESTOR DE FICHEROS * 
120 REM doo daiod dao idioojok 
130 REM 
140 REM A+M9SOdOdSOOiO alo odiololoiololok 
| 150 REM * Por Fco. Morales Guerrero + 
160 REM Axial looioIOJOK 
170 REM * (c) Ed. Siglo Cultural, 1987 * 
180 REM ASNO odiado oojolok 
190 REM 
200 REM **kx* INICIALIZACION *x*x* 
210 REM 
220 DIM F3(1000),A$(10),N(20),N$(20, 4) 
230 LET TT=0 
240 CLS 
250 LET A$="MENU INICIAL" 
260 LET N=2 
270 LET A3$(1)="DEFINIR FICHERO NUEVO” 
280 LET A$(2)="ENTRAR EN EL MENU GENERAL” 
290 LET M3="2" 
300 LET W$="1" 
310 GOSUB 5960 
320 IF A$="1" THEN GOSUB 7250:GOTO 240 
330 CLS 
340 LET A$="MENU GENERAL” 
350 LET N=8 
360 LET A$(1)="INTRODUCIR FICHAS" 
370 LET A$(2)="GESTIONAR FICHAS" 
380 LET A$(3)="ORDENAR FICHAS" 
390 LET A$(4)="BUSCAR FICHAS" 
400 LET A$(5)="GRABACION" 
410 LET A$(6)="LECTURA” 
420 LET A$(7)=" IMPRESORA" 
430 LET A$(8)="TERMINAR” 
440 LET M$="8" 
450 GOSUB 5960 
460 LET A=VAL(A$) A 
470 ON A GOSUB 490,650,1050, 1150, 1450, 1990,2550, 320 
¿480 GOTO 330 
490 REM 
500 REM *x*ek INTRODUCIR FICHAS *x4%*k 
+. 510 REM 
520 CLS : 
530 PRINT " INTRODUCIR FICHAS” y 
ORAR IN SS 
550 PRINT "Fichas en memoria = ";TT 
560 LET NF=TT+1:LET FS5(NF)=CHR$(254) 
570 GOSUB 8010 
580 LET TT=TT+1 
590 LOCATE 20,1 
600 PRINT "INTRODUCIR OTRA FICHA (S/N)" 
610 LET A$=INKEY$: IF A$="" THEN GOTO 610 
620 IF A$="S" OR A$="s" THEN GOTO 490 
630 IF A$="N" OR A$="n" THEN RETURN 
£40 GOTO 610 
650 REM Ñ 
660 REM **+* GESTIONAR FICHAS x*xx 
670 REM 
680 LET A$="GESTION DE FICHAS" 
690 LET N=4 
700 :LET A$(1)="BORRAR FICHA" 
710 LET A$(2)="LIMPIEZA DEL FICHERO" 
720 LET A$(3)="MODIFICAR FICHA" 


730 


LET A$(4)="VER UNA FICHA” 


740 GOSUB 5980 

750 CLS 

760 ON VAL(A$) GOTO 770,850,890,980 

770 PRINT “BORRAR FICHA” 

TOO ABRINTA === == sSe====2” 

790 PRINT : 

800 IF N(1)=0 THEN PRINT “NO HAY FICHAS":GOSUB 5440: RETURN 

810 INPUT "QUE No. DE FICHA ";NF 

820 IF NF<1 OR NF>77 THEN GOTO 810 

830 LET F$(NF)=CHR$(253)+F$(NF) 

840 RETURN 

850 PRINT "LIMPIAR FICHERO” 

860 PRINT "===<========s==" 

870 GOSUB 5680 ¿ 
880 RETURN : 
890 PRINT "MODIFICAR FICHA" y 

900: PRINT "====o==ea3=====" 

910 PRINT 

920 INPUT "QUE FICHA MODIFICAS ";NF 

930 IF NF<1 OR NF>TT THEN PRINT "ESA FICHA NO EXISTE":GOSUB 5440: RETURN 
940 GOSUB 8290 

950 CLS 

960 GOSUB 8010 

970 RETURN 

980 PRINT "VER UNA FICHA” 

990) PRINTMA === ===== ===) 

1000 PRINT 


1010 INPUT “QUE FICHA QUIERES VER "¡NF 

1020 IF NF<1 OR NF>TT TEEN PRINT "ESA FICHA NO EXISTE":GOSUB 5440: RETURN 
1030 GOSUB 8290 

1040 RETURN 

1050 REM 

1060 REM *x** ORDENAR FICHAS *x*x* 


1070 REM 

1080 CLS 

1090 PRINT " ORDENAR FICHAS” 
1100 PRINT "===... <eoo=" 
1110 PRINT:PRINT:PRIN 

1120 INPUT "ORDENAMOS POR EL CAMPO No. :";NC 
1130 GOSUB 6890 

1140 RETURN 

1150 REM 

1160 REM *x*x* BUSCAR FICHAS x*x*x* 
1170 REM 


1180 PRINT "BUSQUEDA DE FICHAS" 

1190 PRINT "=======z:::=:::==" 

1200 PRINT:PRINT . 

1210 IF N(1)=0 THEN PRINT ¡NO HAY FICHAS":GOSUB 5440: RETURN 
1220 LET A$="BUSQUEDA DE FICHAS" 

1230 LET N=3 

1240 LET A$(1)="VER FICHAS" 

1250 LET A$(2)="BUSCAR POR CAMPO Y VALOR" 
1260 LET A$(3)="BUSCAR FICHAS BORRADAS" 
1270 LET W$="1" 

1280 LET M$="3" 

1290 GOSUB 5960 

1300 CLS 

1310 PRINT "BUSQUEDA DE FICHAS" 

1320 PRINT "========:::=======" . 
1330 PRINT:PRINT:LET SW=VAL(A$)-1 


1340 
1350 
1360 
1370 
1380 
1390 
1400 


ON VAL(A$) GOTO 1350, 1390, 1430 


INPUT "INTRODUCE PRIMERA FICHA ";N1 
PRINT 

INPUT "INTRODUCE ULTIMA FICHA "“;N2 
GOTO 1430 

INPUT "QUE VALOR HAY QUE BUSCAR ";A$ 


PRINT 


E PROGRAMAS 


1410 INPUT "EN QUE CAMPO ";NC 
1420 GOTO 1430 ; f 
1430 GOSUB 6230 
1440 RETURN 
1450 REM 
1460 REM **x* GRABACION xxx 
1470 REM 
1480 LET A$="GRABACION DEL FICHERO" 
1490 LET N=2 
y 1500 LET A$(1)="GRABACION EN DISCO" 
1510 LET A$(2)="GRABACION EN CINTA" 
1520 LET W$="1" 
1530 LET M$="2" 
1540 GOSUB 5960 
1550 CLS 
1560 PRINT "GRABACION DEL FICHERO" 
1570 PRINT "========::ni:nn::=====" 
1580 PRINT:PRINT 
1590 INPUT "NOMBRE DEL FICHERO ”;B$ 
1600 IF LEN(B$)>12 THEN GOTO 1590 
1610 PRINT:PRINT 
1620 PRINT "GRABANDO ";B$ 
1630 IF A$="2" THEN GOTO 1810 
1640 OPEN B$ FOR OUTPUT AS +1 
1650 PRINT $1,N(1) 
1660 FOR Z=1 TO N(1) 
1670 PRINT $1,N(Z+1) 
1680 NEXT Z:FOR Z=1 TO N(1) 
1690 PRINT $1,M$(2Z) 
1700 NEXT Z:PRINT $1,TT 
1710 FOR Z=1 TO TT 
1720 PRINT +$1,F3(Z) 
1730 NEXT Z 
1740 FOR Z=1 TO 20 
1750 FOR X=1 TO 4 
1760 PRINT +$1,N$(Z,X) 
1770 NEXT X 
17830 NEXT Z 
1790 CLOSE $1 
1800 RETURN 
1810 OPEN "CAS: "+B$ FOR OUTPUT AS +41 
1820 PRINT $1,N(1) 
FOR Z=1 TO N(1) 
1840 PRINT $1,N(Z+1) 
1850 NEXT Z 
», 1860 FOR Z=1 TO N(1) 
1870 PRINT +$1,M$(Z) 
1880 NEXT Z 
1890 FOR Z=1 TO TT 
1900 PRINT $1,F$(Z) 
1910 NEXT 2 
1920 FOR Z=1 TO 20 
1930 FOR X=1 TO 4 


Pp 
[00] 
1d) 
o 


1940 PRINT +$1,N$(Z,X) 
1950 NEXT X 
1960 NEXT Z 


1970 CLOSE +$1 

1980 RETURN 

1990 REM 

2000 REM *xx*x LECTURA DEL FICHERO *x*x 
2010 REM 

2020 LET A$="LECTURA DE UN FICHERO” 
2030 LET N=2 

2040 LET A$(1)="LECTURA DESDE DISCO” 
2050 LET A$(2)="LECTURA DESDE CASETE" 
2060 LET W$="1" 

2070 LET M$="2" 

2080 GOSUB 5960 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 


CLS 
PRINT "GRABACION DEL FICHERO” 
PRENSA 
PRINT:PRINT 
INPUT "NOMBRE DEL FICHERO ”;B$ 
IF LEN(B$)>12 THEN GOTO 2130 
PRINT "LEYENDO ... “;B$ 
IF A$="2" THEN GOTO 2360 
OPEN B$ FOR INPUT AS +1 
INPUT +$1,N(1) 
FOR Z=1 TO N(1) 

INPUT +$1,N(Z+1) 
NEXT Z 
FOR Z=1 TO N(1) 

INPUT +*$1,M$(2) 
NEXT Z 
INPUT +$1,TT 
FOR Z=1 TO TT E 

INPUT +$1,F$(Z) 
NEXT Z 
FOR Z=1 TO 20 

FOR X=1 TO 4 

INPUT +$1,N$(Z,X) 

NEXT X 
NEXT Z 
CLOSE +$1 
RETURN 
OPEN “"CAS"+B$ FOR INPUT AS +1 
INPUT +$1,N(1) 
FOR Z=1 TO N(1) 

INPUT +$1,N(Z+1) 
NEXT Z 
FOR Z=1 TO N(1) 

INPUT +$1,M$(Z) 
NEXT Z 
INPUT +$1,TT 
FOR Z=1 TO TT 

INPUT +$1,F$(Z) 
NEXT Z 
FOR Z=1 TO 20 

FOR X=1 TO 4 

INPUT +1,N$(Z,X) 

NEXT X 
NEXT Z 
CLOSE $1 
RETURN 
REM 
REM *x** IMPRESORA Xxx 
REM 
LET A$="MENU DE IMPRESION" 
LET N=2 
LET A$(1)="DEFINIR IMPRESION” 
LET A$(2)=" IMPRIMIR" 
LET W$="1" 
LET M$="2" 
GOSUB 5960 
IF A$="1” THEN GOSUB 3390: RETURN 
CLS 
PRINT "IMPRESION DE LAS FICHAS" 
PRINT "coczzrrccccoccocccccme===" 
PRINT:PRINT . 
IF N$(1,1)="" THEN PRINT "IMPRESION NO DEFINIDA":GOSUB 5440: RETURN 
IF N(1)=0 THEN PRINT "NO HAY FICHAS”:GOSUB 5440: RETURN 
PRINT "PREPARA LA IMPRESORA Y...” 
GOSUB 5440 
LOCATE 5,1 
PRINT "IMPRIMIREMOS LAS FICHAS ”; 
FOR Z=1 TO 20 
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2770 IF N$(2,1)<>"" THEN PRINT N$(Z,1);”,";:GOTO 2790 
2780 LET Z=21:LET N=Z 

2790 NEXT Z 

2800 PRINT:PRINT : E 

2810 PRINT "EN EL ORDEN "; 

2820 FOR Z=1 TO N 


2830 IF N$(2,2)<>"" THEN PRINT N$(Z,2);",";:GOTO 2850 
2840 LET-Z=21 
2850 NEXT Z 


2860 PRINT:PRINT 
2870 PRINT “TABULADAS EN LAS POSICIONES "; 
| 2880 FOR Z=1 TO N 
2890 IF N$(Z,3)<>"" THEN PRINT N$(Z,3);",";:GOTO 2910 
2900 LET Z=21 
2910 NEXT Z 
2920 PRINT:PRINT 
2930 PRINT "ENTRE FICHA Y FICHA ”; 
2940 IF N$(1,4)="-1" THEN PRINT "CAMBIARE DE PAGINA":GOTO 2960 
2950 PRINT "IMPRIMIRE ";N$(1,4);" LINEAS EN BLANCO" 
2960 GOSUB 3150 
2970 LET CC=0 
2980 FOR Z=1 TO TT:LET CR=1 
2990 FOR R=1 TO 20:LET CD=0 


3000 IF N$(R,2)="" THEN LET R=20:GOTO 3090 

3010 LET CC=VAL(N$(R,2)) 

3020 FOR V=1 TO LEN(F$(Z)) 

3030 IF MID$(F$(Z),V, 1)=CHR$(254) THEN LET CD=CD+1: IF CD=CC THEN LET Z1 
=V+1:LET V=LEN(F$(Z)) 

3040 NEXT V:LPRINT TAB(VAL(N$(CR,3)));:LET CR=CR+1 

3050 FOR V=Z1 TO LEN(F$(Z)) 

3060 IF MID$(F$(2),V,1)=CHR$(254) THEN LET V=LEN(F$(Z)):GOTO 3080 
3070 LPRINT MID$(F$(Z),V, 1); 

3080 Z NEXT Y 

3090 NEXT R 

3100 IF N$(1,4)="-1" THEN LPRINT CBR$(12):GOSUB 3150:GOTO 3120 1 
3110 FOR R=1 TO VAL(N$(1,4)):LPRINT:NEXT R 

3120 NEXT Z 


3130 LPRINT "-================oo-=- A e O 
3140 RETURN 

3150 FOR S=1 TO 20 

3160 IF N$(S,2)="" THEN GOTO 3180 

3170 LPRINT TAB(VAL(N$(S,3)));MS(VAL(N$(S,2))); 

3180 NEXT SIiLPRINT "=== 


3200 REM  » 
+ 3210 REM *** FIN DE LA SESION x*xx* 
3220 REM 
3230 CLS 
3240 PRINT "TERMINAR LA SESION” 
3250 PRINT “==ss====s==========="” 
3260 PRINT:PRINT:PRINT 
3270 PRINT “ESTA SEGURO (S/N)" 
3280 LET A$=INKEYS$ 
3290 IF A$="" THEN GOTO 3280 
3300 IF A$="S" OR A$="s" THEN GOTO 3330 
3310 IF A$="N" OR A$="n"” THEN RETURN 
3320 GOTO 3280 
3330 CLS 
3340 PRINT "SESION TERMINADA. ADIOS” 
3350 FOR I=1 TO 10, 
3360 PRINT 
3370 NEXT I 
3380 END 
3390 REM 
3400 REM Add9SodddldlOjaldjolojolalololojolalojolRJololokok 
3410 REM * DEFINICION DE IMPRESION x*+ 
3420 REM AaotoaaaolalalalolOlalOIOIOlOIOIOIOlOIOlOlalIOK 


0 EA AA 
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4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 


PRINT “CON EL ORDEN DE IMPRESION” 
LET X=1:LET Y=20 
GOSUB 5440 
GOTO 3390 
LOCATE 15,1 
PRINT "( ESTA DE ACUERDO ? (S/N)"” 
LET A$=INKEY$ 
IF,A$="S" OR A$="s" THEN GOTO 4220 
IF A$<>"N" AND A$<>"n" THEN GOTO 4170 
ERASE N$ 
GOTO 3390 
FOR Z=5 TO 20 
LOCATE Z,1 
PRINT SPACE$(40) 
NEXT Z 
LOCATE 5,1 P 
PRINT "INTRODUZCA AHORA EN QUE COLUMNA” 
PRINT “DE LA IMPRESORA SE HA DE IMPRI-" 
PRINT "MIR CADA CAMPO. ” 
FOR Z=1 TO N 
LOCATE 12,1 
PRINT "CAMPO No. ";N$(Z,1);" "; 
LINE INPUT "==> ";N$(Z,3) 
IF VAL(N$(Z,3))=0 THEN GOTO 4310 
NEXT 2 
FOR Z=5 TO 17 
LOCATE Z,1 
PRINT SPACE$(40) 
NEXT 2 
LOCATE 5,1 
FOR Z=1 TO N 
PRINT "EL CAMPO ";N$(Z,1);" SE TABULARA EN LA COLUMNA "5N$(Z,3) 
NEXT Z 
LOCATE 20,1 
PRINT "( ESTA DE ACUERDO ? (S/N)" 
LET A$=INKEY$ ; 
IF A$="S" OR A$="s" THEN GOTO 4500 
IF A$<>"N"” AND A$<>"n" THEN GOTO 4460 
GOTO 4220 : 
FOR Z2=5 TO 20 
LOCATE Z,1 
PRINT SPACE$(40) 
NEXT Z 
LOCATE 5,1 
PRINT "“( CUANTAS LINEAS DEJO ENTRE FICHA" 
PRINT "Y FICHA? PULSA -1 PARA CAMBIAR DE” 
PRINT "PAGINA. *” 
LOCATE' 12, 1 
LINE INPUT "==> ";N$(1,4) 
IF VAL(N$(1,4))=0 THEN GOTO 4580 
CLS 
PRINT "OPERACION COMPLETADA 
PRINT "=========:========== 
LET X=1:LET Y=20 
GOSUB 5440 
CLS 
RETURN 
REM 
REM ASS ooo lija aloja lololalalejolajojolololok 
REM * SUBRUTINA DE ENTRADA DE DATOS x* 
REM SSSO SOS lolololalolajajololojok 
REM 
LET D$="" : LET LO=0 
LOCATE Y,X 
FOR Z=1 TO LO 


PRINTS 
NEXT Z 
LOCATE Y,X 
PRINT "_" 


4800 
4810 
4820 
4830 
TE Y, 
4849 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 


LOCATE Y,X 
LET A$=INKEY$ 
IF A$="" THEN GOTO 4810 


IF A$=CHR$(8) AND LO>0 THEN LET LO=LO-1:LET D$=LEFT$(DS$, LO) 


X:PRINT "_.":LOCATE Y, X:GOTO 4810 
IF A$=" " OR A$="." OR A$="-" THEN GOTO 4870 
IF A$=CHR$(13) THEN GOTO 4930 


IF A$>M$ OR A$<W$ THEN GOTO 4810 
PRINT A$;"_" 
LET X=X+1 
LOCATE Y,X 
LET D$=DS5+A$ 
LET LO=L0+1 
IF LO<>LO THEN GOTO 4810 
LOCATE Y,X 
FOR Z=LO TO LO 
PRINTS 
NEXT 2 
RETURN 
REM 
REM Adol olaaa rojo 
REM * MENSAJE Y RECOGIDA DE OPCION * 
REM SOS OOOO OOOIOIOOSOONIOIOIOIO LK 


REM 

LET T$="INTRODUZCA OPCION” 

LET L=17 

LOCATE Y,X 

PRINT T3; 
LOCATE Y,X+19 
RRINT CHR$(177); 
LET A$=INKEYS o 
IF A$<>"" AND (A$<W$ OR A$>M$) THEN GOSUB 5250 
IF A$<>"" THEN GOSUB 5360:GOTO 5220 
FOR Z=1 TO 100 
NEXT Z 
LOCATE Y,X+19 
PRINT " "; 
LET A$=INKEYS$ 
IF A$<>"" AND (A$<W$ OR A$>M$) THEN GOSUB 5250 
IF A$<>"" THEN GOSUB 5360:GOTO 5220 
FOR Z=1 TO 100 
NEXT Z 

GOTO 5070 

LOCATE Y,X 

PRINT SPACES$(L+3); 

RETURN 

REM 

REM *x*x* ERROR x*xx 

REM 

LOCATE Y, X+19 


PRINT “ERROR ..." 

FOR Z=1 TO 500 

NEXT Z 

LOCATE Y, X+19 

PRINT " ":REM 9 ESPACIOS 
LET A$="" 

RETURN 

REM 

REM *x*x* IMPRESION DE LA OPCION ELEGIDA x*xx 
REM 

LOCATE Y, X+19 

PRINT AS; 

FOR Z=1 TO 500 

NEXT Z 

RETURN ¿ e 
REM 

REM ASS lololojololokok 

REM * PULSA UNA TECLA x* 

REM dsd ISlSOaolOJOlooJOlok 


:LET X=X-1:LOCA 
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5480 REM 

5490 LET A$="PULSA UNA TECLA” 
5500 LET L=15 

5510 BEEP 

5520 FOR Z=1 TO 6 


5530 LOCATE Y,X 
5540 PRINT A$; 
5550 IF INKEY$<>"” THEN GOTO 5650 
5560 FOR K=1 TO 100 
5570 NEXT K 
' 5580 LOCATE Y,X 
5590 PRINT SPACE$(L); 
5600 IF INKEY$<>"" THEN GOTO 5650 
5610 FOR K=1 TO 100 
5620 NEXT K 


hn» 5630 NEXT Z 
5640 GOTO 5510 
5650 LOCATE Y,X 
5660 PRINT SPACE$(L); 
5670 RETURN 
5680 REM 
5890 REM doo IS IAS Illa IO IallloIoIJolok 
5700 REM * SUBRUTINA DE BORRADO REAL DE FICHAS * 
5710 REM ASS SS OSO ISSISIS IO lOISISlO lll lak 
5720 REM 
5730 LET N=0 
5740 FOR Z=1 TO TT 
5750 IF LEFT$(F$(Z),1)<>CHR$(253) THEN GOTO 5810 
5760 LET F$(Z)="" 
5770 LET N=N+1 
5780 FOR X=Z TO TT-1 


5790 LET F$(X)=F$(X+1) 
5800 NEXT X 
5810 NEXT Z 


5820 FOR Z=TT-N+1 TO TT j 
5830 LET F$(Z)="" 
5840 NEXT Z 
5850 LET TT=TT-N 
5860 RETURN 
5870 PRINT "ERROR" 
5880 PRINT "--=-=-==-=--- b 
5890 PRINT 
5900 PRINT "Lo siento pero no he encontrado el campo No. ";NC 
5910 PRINT 
5920 PRINT "Estas seguro de que las fichas de este fichero tienen";NC; "campos?" 
5930 X=1:Y=20:GOSUB 5440 
5940 CLS ” 
* 5950 RETURN 
59860 REM 
5970 REM AMsaSSSIO SISSI lola lalalalalololok 
5980 REM + SUBRUTINA DE CREACION DE MENUS * 
5990 REM AoSdaSISlSjO SISSI lolo lolo lojok 
6000 REM 
6010 CLS 
6020 LET X=INT((40-LEN(A$))/2) 
68030 LOCATE 1,X 
6040 PRINT A$ 
6050 LOCATE 2,X 
6060 FOR Z=1 TO LEN(AS$) 
6070 PRINT "-"; 
6080 NEXT Z 
6090 PRINT:PRINT 
6100 LET X=0 
6110 FOR Z=1 TO N 
6120 IF X<LEN(A$(Z)) THEN LET X-LEN(A$S(2)) 
6130 NEXT Z 
6140 LET X=INT((40-X)/2) 
6150 FOR Z=1 TO N 


O 


6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
68650 
6660 
6670 
6680 
6690 
8700 
D=NC 
6710 


LOCATE 2*Z+3,X 
PRINT 2;"-";A$(Z) 
NEXT Z 
LET X=1:LET Y=21 pa 
GOSUB 4980 
CLS 
RETURN 
REM 
REM SMS SISSI llo 


REM * SUBRUTINA DE BUSQUEDA x* 

REM ASSOSSISOS Ol ISO lolo jojo jojolok 

REM 

CLS 

PRINT "BUSCANDO" 

PRINTS 

PRINT 

IF SW=0 THEN PRINT "Buscando las fichas desde la ";N1;" hasta la ";N2 PE 
IF SW=1 THEN PRINT "Buscando las fichas que tengan ";A$;” en *el campo ";NC 
IF SW=2 THEN PRINT "Buscando fichas borradas" 

PRINT E 


PRINT "ESPERA UN MOMENTO” 

FOR Z=1 TO 1000 

NEXT 2 

CLS 

ON SW+1 GOSUB 6490,8580,67'70 

CLS ' 

PRINT "OPERACION TERMINADA” 

PRINTS 

PRINT 

PRINT "No se han encontrado mas fichas." 


LET X=1:LET Y=20 


GOSUB 5440 
RETURN 
REM 
REM *x*x* BUSQUEDA POR No. DE FICHA *xx 
REM 
FOR R=N1 TO N2 
LET NF=R 
GOSUB 8290 
CLS 
NEXT R 
RETURN 
REM 
REM *xx BUSQUEDA POR CAMPO Y VALOR x*xkx 
REM 
IF N(1)<>0 THEN GOTO 6690 


PRINT "ERROR" 
PRINT "----=-=-=-- » 
PRINT 
PRINT "Lo siento. El campo ";NC;"” no existe." 
GOSUB 5440 
CLS 
RETURN 1 
LET J$=A$:FOR Z=1 TO TT:LET CD=0:LET CR=0:LET Z1=0 
FOR X=1 TO LEN(F$(Z)): IF MIDS(F$(Z),X,1)=CHR$(254) THEN LET CD=CD+1:IF C 
THEN LET Z1=X+1:LET X=LEN(F$(2Z)) 
NEXT X:FOR X=Z1 TO LEN(F$(Z)):1F MID$(J$,X-21+1,1)=MID$(F$(Z7),X,1) THEN 


LET CR=CR+1:IF CR=LEN(J$) THEN LET X=LEN(F$(2)) 


6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 


NEXT X 
IF CR=LEN(J$) THEN LET VV=Z:LET NF=Z:GOSUB 8290:LET Z=VV 
NEXT Z » : 
RETURN , 
CLS 
REM - 
REM *x*x* BUSQUEDA DE FICHAS BORRADAS *x*xx 
REM 
FOR Z=1 TO TT 


IF LEFT$(F$(Z),1)<>CHR$(253) THEN GOTO 6870 


2 PROGRAMAS 


6820 LET F$(Z)=RIGHT$(F$(Z),LEN(F$(Z))-1) 
6830 LET NF=Z 

6840 GOSUB 8290 . 
6850 CLS:LET Z=NF 

6860 LET F$(Z)=CHR$(253)+F$(7) 

6870 NEXT Z 

6880 RETURN 

6890 REM 

6900 REM dada SOS IOlS SOS Ojo lalOROlojolO Ilo 

6910 REM * ORDENACION ALFANUMERICA x*x 

6920 REM adds SISS SOS lO lol laloloJJOK 

6930 REM 

6940 CLS 

6950 PRINT "ORDENAR LAICO ROS 
6960 PRINT "========::::::toc:c:==2::===="- 
6970 PRINT 

6980 PRINT "Ordenando fichero por el campo No. "¡NC 
6990 PRINT 

7000 PRINT "ESPERA UN MOMENTO" 

7010 IF N(1)>=NC THEN GOTO 7120 


7020 CLS 

7030 PRINT "ER RO R" 

7040 PRINT "---=-==---- o 

7050 PRINT 

7060 PRINT "Lo siento pero no he encontrado el campo No. "¡NC 


7070 PRINT 

7080 PRINT "Estas seguro de que las fichas de este fichero tienen”";NC; "campos?" 

7090 X=1:Y=20:GOSUB 5440 

7100 CLS 

7110 RETURN 

7120 FOR Z=1 TO TT:LET CC=0:LET CD=0 

7130 FOR X=1 TO Z:FOR R=1 TO LEN(F$(Z)):IF MID$(F3(Z),R,1)=CHR$(254) THEN LET 
CC=CC+1:IF CC=NC THEN LET Z1=R+1:LET R=LEN(F$(Z)) 

7140 NEXT R:LET CC=0:FOR R=1 TO LEN(F$(X)): IF MIDS(FS$(X),R,1)=CHR$(254) THEN 

LET CC=CC+1:IF CC=NC THEN LET Z2=R+1:LET R=LEN(F$(X)) 

7150 NEXT R:IF MID$(F$(Z),Z1)<MID$(F$(X),Z2) THEN LET A$=F$(Z):LET F$(Z)=F$(X 
):LET F$(X)=A$ 

7160 NEXT X 

7170 NEXT Z 

7180 CLS:PRINT "OPERACION TERMINADA" 

7190 PRINT "=====<<ccrcmmmmmmccccccectccccccm==" 

7200 PRINT 

7210 PRINT "El fichero esta ordenado por el campo No. "¡NC 

7220 X=1:Y=20:GOSUB 5440 

7230 CLS 

7240 RETURN , 

7250 REM 

17260 REM oO SIRIO 

7270 REM * DEFINICION DE UN FICHERO NUEVO x*x 

7280 REM ASS SISS OIR SOS ISSOOOOIO SO lOJSIOlOROOIOROJOK 

7290 REM 

7300 CLS 

7310 LET A$="CREACION DE UN FICHERO" 

7320 LET N=2 

7330 LET A$(1)="UTILIZAR UNO QUE ESTE CREADO” 

7340 LET A$(2)="CREAR UNO NUEVO" 

7350 GOSUB 5960 

7360 IF A$="1" THEN GOTO 7640 

7370 PRINT " CREACION DE UN NUEVO FICHERO" 

71380 PRINT "----===============----- e 

7390 PRINT:PRINT 

7400 PRINT " Por favor, responda a las preguntas quele van a aparecer a continua 
cion.” 


7410 PRINT * Em Tas ooo ooo Snnoooooonoocniio===== A 
7420 LOCATE 9,1 
7430 INPUT "Cuantos campos tendra cada ficha?";N(1) 


7440 IF N(1)<0 OR N(1)>20 THEN GOTO 7420 
7450 DIM M$(N(1)+1) 


O 


. 


7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 

del 
7720 
7730 
7740 
7750 


PRINT 
FOR Z=1 TO N(1) 
LOCATE 16,1 
PRINT " 
LOCATE 18,1 
PRINT " 
LOCATE 16,1 
PRINT "Cuantos caracteres ocupa el campo ”";Z 
INPUT N(Z+1) 
LOCATE 18,1 
PRINT "Como se llama este campo" 
INPUT M$(Z) 
NEXT Z 
CLS 
PRINT "OPERACION TERINADA" 
LET X=1:LET Y=20 
GOSUB 5440 - 
RETURN ¿ 
REM 
REM *x*x* UTILIZACION DE UN FICHERO YA CREADO *xx 
REM 
CLS 
PRINT " CREACION DE UN FICHERO" 
PRINT “========2oo===o=========" 
PRINT 
PRINT " Teclea el nombre del fichero que ya tiene una estructura definida y 
cual laquieres copiar." ; 
PRINT:PRINT:PRINT 
INPUT "NOMBRE = ";N$ 
PRINT:PRINT 
PRINT " Asegurate de que esta colocada la cintao disco que contiene dicho f 


ichero” 


7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 


LET X=1:LET Y=20 
GOSUB 5440 
CLS 
PRINT "LEYENDO ... ";N$ 
OPEN N$ FOR INPUT AS +*1 
INPUT+1,T 
DIM M$(T+1) 
FOR Z=1. TO T 
INPUT+$1,N(Z+1) 
NEXT Z 
LET N(1)=T 
FOR Z=1 TO T 
INPUT+$1,M$(Z) 
NEXT Z 
CLOSE+1:CLS 
PRINT "CONFIGURACION LEIDA" 
PRINT:PRINT 
PRINT "Cada ficha tiene ";T;" campos” 
PRINT 
FOR Z=1 TO T 
PRINT "el campo ";Z;" se llama ";M$(Z) 
NEXT Z 
LET X=1:LET Y-21 
GOSUB 5440 
RETURN 
REM 
REM RSS dSlolO o dolololojokok 


REM * INTRODUCCION DE FICHAS x 
REM dada odio lajololojololok 
REM 

PRINT 

PRINT "INTRUDUCIENDO LA FICHA ";NF 
PRINT pe 
FOR R=1 TO N(1) 


LOCATE 10, 1 
PRINT M$(R);" : *; 


2 PROGRAMAS 


LET X=LEN(M$(R))+4 
LET Y=10 
LET M$="2" 
LET W$="0" * 
LO=N(R+1):GOSUB 4680 
LOCATE 20,1 
PRINT "ESTA CORRECTO ESTE CAMPO (S/N)"” 
LET A$=INKEY$: IF A$="" THEN GOTO 8190 
IF A$="N" OR A$="n"” THEN GOTO 8100 
IF A$<>"S" AND A$<>"s" THEN GOTO 8190 
LET FS(NF)=F$(NF)+D$+CHR$(254) 
LOCATE 10,1 Í 
PRINT SPACE$(80) 
LOCATE 20,1 | 
_PRINT SPACE$(40) e 
8270 NEXT R 
8280 RETURN 
8290 REM 
8300 REM AMOO ISO IOK ' 
8310 REM * VER UNA FICHA x 
8320 REM AXIS loIJOJOKK 
8330 REM 
8340 CLS:LET CC=1 
8350 PRINT "FICHA No. ";NF 
8360 PRINT:PRINT M$(CC);" ”" 
8370 IF LEFT$(F$(NF),1)=CHR$(253) THEN PRINT "ESTA FICHA ESTA BORRADA":GOSUB 5: 
O: RETURN 
8380 FOR Z=2 TO LEN(FS$(NF))>) 
8390 IF MIDS(F$(NF),Z,1)=CHR$(254) THEN LET CC=CC+1:PRINT:PRINT M$(CC);" " 
OTO 8410 
8400 PRINT MID$(F$(NF),Z,1); 
8410 NEXT Z 
8420 GOSUB 5440 
8430 RETURN 


”. 


COMMODORE 
240 PRINT CHR$(147) 2170 OPEN 1,8,0,B$ 
330 PRINT CHR$(147) 2360 OPEN 1,1,0,B$ 
520 PRINT CHR$(147) 2660 PRINT CHR$(147) 
590 POKE 214, 19:POKE 211,9 2740 POKE 214,4:POKE 211,0 
610 GET A$:IF A$“” THEN GOTO 610 2975 OPEN 1,4:CMD 1 
750 PRINT CHR$(147) 3040 NEXT V:PRINT TAB(VAL(NS(CR, 3)));:LET 
950 PRINT CHR$(147) CR=CR+1 
1080 PRINT CHR$(147) 3070 PRINT MIDS(FS$(Z) ,V, 1); 
1300 PRINT CHR$(147) 3100 IF N$(1,4)="-1” THEN PRINT 
1550 PRINT CHR$(147) CHR$(147):GOSUB 3150:GOTO 3120 
1640 OPEN 1,8,1,B$ 3110 FOR R=1 TO VAL(N$(1,4)):PRINT:NEXT 
1810 OPEN 1,1,1,B$ R 


2090 PRINT CHR$(147) 3130 PRINT 


3140 CLOSE +1:RETURN 

3170 PRINT 

TAB(VAL(NS(S, 3))):MS(VAL(NS(S,2))): 
3180 NEXT S:PRINT 

3230 PRINT CHR$(147) 

3280 GET A$ 

3330 PRINT CHR$(147) 

3440 PRINT CHR$(147) 

3470 POKE 214,4:POKE 211,0 

3490 POKE 214,11:POKE 211,0 

3530 POKE 214,4:POKE 211,0 

3550 POKE 214,8:POKE 211,0 

3580 POKE 214,11:POKE 211,0 

3590 PRINT “ ":REM 10 ESPACIOS 
3600 POKE 214,11:POKE 211,0 

3630 POKE 214,8:POKE 211,21 

3680 PRINT “<CURSOR-IZ>";" " 

3690 POKE 214,4:POKE 211,0 

3730 POKE 214,9:POKE 211,0 

3760 POKE 214,11:POKE 211,0 

3770 PRINT “ ":REM 10 ESPACIOS 
3780 POKE 214,11:POKE 211,0 

3810 POKE 214,9:POKE 211,21 

3860 PRINT “<CURSOR-IZQ>”;" ” 

3870 POKE 214,11:POKE 211,0 

3960 PRINT CHR$(147) 

4010 PRINT “<CURSOR-IZQ>";* " 

4080 PRINT “<CURSOR-IZQ>”;" " 
4090 POKE 214,11:POKE 211,0 

4150 POKE 214,14:POKE 211,0 

4170 GET AS 

4200 REM 

4230 POKE 214,Z-1:POKE 211,0 

4240 FOR Q=1 TO 40:PRINT “ '::NEXT Q 
4260 POKE 214,4:POKE 211,0 

4310 POKE 214,11:POKE 211,0 

4370 POKE 214,2-1:POKE 211,0 

4380 FOR Q=1 TO 40:PRINT “ ”;:NEXT Q 
4400 POKE 214,4:POKE 211,0 

4440 POKE 214,19:POKE 211,0 

4460 GET AS 

4510 POKE 214,2-1:POKE 211,0 

4520 FOR Q=1 TO 40:PRINT “ "::NEXT Q 
4540 POKE 214,4:POKE 211,0 

4580 POKE 214,11:POKE 211,0 

4610 PRINT CHR$(147) 

4660 PRINT CHR$(147) 

4740 POKE 214,Y:POKE 211,X 

4780 POKE 214,Y:POKE 211,X 

4800 POKE 214,Y:POKE 211,X 
4810 GET AS 

4830 IF AS=CHR$(20) AND LO>0 THEN LET 
LO=LO-1:LET D$=LEFTS$(DS,LO):LET 
X=X-1:POKE 214,Y:POKE 211,X:PRINT 
“-. ".POKE 214,Y:POKE 211,X:GOTO 4810 


4890 POKE 214,Y:POKE 2 
4930 POKE 214,Y:POKE 2 
5050 POKE 214,Y:POKE 2 
5070 POKE 214,Y:POKE 2 
5080 PRINT CHR$(102); 
5990 GET AS 

5140 POKE 214,Y:POKE 211,X+19 

5160 GET AS 

5220 POKE 214,Y:POKE 211,X 

5230 FOR Q=1 TO L+3:PRINT * ”;:NEXT Q 
5280 POKE 214,Y:POKE 211,X+19 

5320 POKE 214,Y:POKE 211,X+19 

5390 POKE 214,Y:POKE 211,X+19 

5510 REM 

5530 POKE 214,Y:POKE 211,X  “- 

5550 GET B$:IF BS<>*"" THEN GOTO 5650 


-5580 POKE 214,Y:POKE 211,X 


5590 FOR Q=1 TO L:PRINT “ ”::NEXT Q 

5600 GET BS:IF BS<>"“ “THEN GOTO 5650 

5650 POKE 214,Y:POKE 211,X 

5660 FOR Q=1 TO L:PRINT " ”;:NEXT QA 

5940 PRINT CHR$(147) 

6010 PRINT CHR$(147) 

6030 POKE 214,1:POKE 211,X 

6050 POKE 214,2:POKE 211,X 

6160 POKE 214,2'Z+3:POKE 211,X 

6210 PRINT CHR$(147) 

6280 PRINT CHR$(147) 

6390 PRINT CHR$(147) 

6410 PRINT CHR$(147) 

6550 PRINT CHR$(147) 

6670 PRINT CHR$(147) 

6760 REM 

6850 PRINT CHR$(147):LET Z=NF 

6940 PRINT CHR$(147) 

7020 PRINT CHR$(147) 

7100 PRINT CHR$(147) 

7180 PRINT CHR$(147);" OPERACION 
TERMINADA” 

7230 PRINT CHR$(147) 

7300 PRINT CHR$(147) 

7420 POKE 214,8:POKE 21 

7480 POKE 214,15:POKE 2 

7500 POKE 214,17:POKE 2 

7520 POKE 214,15:POKE 2 

7550 POKE 214,17:POKE 2 

7590 PRINT CHR$(147) 

7670 PRINT CHR$(147) 

7780 PRINT CHR$(147) 

7800 OPEN 1,1,0,N$ 

7900 CLOSE ++1:PRINT CHR$(147) 

8100 POKE 214,9:POKE 211,0 

8170 214,19:POKE 211,0 

8190 GET A$:IF A$="” THEN GOTO 8190 

8230 POKE 214,9:POKE 211,0 

8240 FOR Q=1 TO 80:PRINT “ ”;:NEXT Q 

8250 POKE 214,19:POKE 211,0 


ml ml mm ml 


26 PROGRAMAS 


8260 FOR A=1 TO 80:PRINT “ ”;:¡NEXT Q 
8340 PRINT CHR$(147):LET CC=1 


SPECTRUM: 


220 DIM F$(200,100):DIM A$(10,20):DIM 
N(20):DIM N$(20,4,3) 
470 GOTO 


490'(A=1)+650'(A=2)+1050"(A=3)+ 
1150"(A=4)+145"(A=5)+1990"(A=6)+ 
2550'(A=7)+3200"(A=8) 

590 PRINT AT 19,0; 

760 LET - A=VAL(A$):GOTO 
770'(A=1)+850'(A=2)+890'(A=3)+ 
980"(A=4) 

1340 LET A=VAL(A$):GOTO 
1350"(A=1)+1390'(A=2)+1430"(A=3) 
1600 IF LEN(B$) >10 THEN GOTO 1590 
1640 SAVE ““M”;1;B$+“1” DATA N( 
1650 SAVE "“M”;1:B$+"2" DATA M$( 
1660 SAVE "“M”;1:B$+"3” DATA FS() 
1670 SAVE *"M”;1:B$+"4” DATA NSO 
1680 REM 

1690 REM 

1700 REM 

1710 REM 

1720 REM 

1730 REM 

1740 REM 

1750 REM 

1760 REM 

1770 REM 

1780 REM 

1790 REM 

1810 SAVE B$+"1" DATA N( 

1820 SAVE B$+"2” DATA M$0 

1830 SAVE BS+"3” DATA FSO 

1840 SAVE B$+"4” DATA NS() 

1850 REM , 

1860 REM" * 

1870 REM 

1880 REM 

1890 REM 

1900 REM 

1910 REM 

1920 REM 

1930 REM 

1940 REM 

1950 REM 

1960 REM 

1970 REM 

2140 IF LEN(B$)>10 THEN GOTO 2130 
2170 LOAD *“M”;1:BS+"1”" DATA N( 
2180 LOAD "“M”;1:B5+"2" DATA M$0 
2190 LOAD "“M”;1:B5+"3"” DATA ESO 
2200 LOAD *“M”;1:B$+"4" DATA N$() 
2210 FOR Q=1 TO 200 


2230 NEXT Q 


2220 IF FS(Q)="" THEN LET TI=0-1:LET 
a=200 : 


2240 REM 

2250 REM 

2260 REM 

2270 REM 

2280 REM 

2290 REM 

2300 REM 

2310 REM 

2320 REM 

2330 REM 

2340 REM 

2360 LOAD *“M”;1;B$+“1” DATA N( 
2370 LOAD *“M”;1;B$+"2” DATA M$O 
2380 LOAD *"M”;1;B$+“3” DATA FSO 
2390 LOAD *“M”;1:B$+“4” DATA NSO 
2400 FOR Q=1 TO 200 

2410 IF FS(Q)="” THEN LET-TT=Q0-1:LET 
A=200 

2420 NEXT Q 

2430 REM 

2440 REM 

2450 REM 

2460 REM 

2470 REM 

2480 REM 

2490 REM 5 

2500 REM 

2510 REM 

2520 REM 

2530 REM 

2740 PRINT AT A,O; 

3030 IF F$(Z,V)=CHR$(254) THEN LET 
CD=CD+1:IF CD=CC THEN LET Z1=V+1:LET 
E 

3060 IF FS(Z,V)=CHR$(254) THEN LET 
V=LEN(F$Z)):GOTO 3080 

3070 LPRINT FS(Z,V); 

3470 PRINT AT 4,0; 

3490 PRINT AT 11,0; 

3500 INPUT LINE “==> ”;A$ 

3530 PRINT AT 4,0; 

3550 PRINT AT 8,0; 


3580 PRINT AT 11,0; 

3590 PRINT * ”:REM 10 ESPACIOS 
3600 PRINT AT 11,0; 

3610 INPUT LINE “==> ”;¡NS(Z, 1) 

3630 PRINT AT 8,21; 

3680 REM 

3690 PRINT AT 4,0 
3730 PRINT AT 9,0; 

3760 PRINT AT 11,0; 

3770 PRINT * ":REM 10 ESPACIOS 
3780 PRINT AT 11,0; 

3790 INPUT LINE “==>:;N5$(Z,2) 


3810 PRINT AT 9,21; 
3860 REM 

3870 PRINT AT 11,0; 
4010 REM 
4080 REM 
4090 PRINT AT 
4150 PRINT AT 
4200 REM 
4230 PRINT AT Z-1,0; 

4240 FOR Q=1 TO 40:PRINT * ”;:NEXT Q 
4260 PRINT AT 4,0; 
4310 PRINT AT 11,0; 
4330 INPUT LINE “==> ”;N;$(Z,3) 

4370 PRINT AT Z-1,0; 

4380 FOR Q=1 TO 40:PRINT “ ”;:NEXT Q 
4400 PRINT AT 4,0; 

4440 PRINT AT 19,0; 

4510 PRINT AT Z-1,0; 

4520 FOR Q=1 TO 40:PRINT “ ”;:NEXT QA 
4540 PRINT AT 4,0; 
4580 PRINT AT 11,0; 
4590 INPUT LINE “== 
4740 PRINT AT YX; 
4780 PRINT AT Y,X; 
4800 PRINT AT Y,X; 
4830 IF AS=CHR$(8) AND LO>0 THEN LET 
LO=L0O-1:LET D$=D$ ( TO LO):LET 
X=X-1:PRINT AT Y, X;*-."¿AT Y,X::GOTO 4810 
4890 PRINT AT Y,X; 

4930 PRINT AT Y,X; 

5050 PRINT AT Y, X; 

5070 PRINT AT AT T,X+19; 

5080 PRINT PAPER O, “ ” 

5140 PRINT AT Y,X+19; 

5220 PRINT AT Y, X; 

5230 FOR Q=1 TO L+3:PRINT “ ";:NEXT Q 
5280 PRINT AT Y,X+19; 

5320 PRINT AT Y,X+19; 

5390 PRINT AT Y,X+19; : 

5510 BEEP .2,15 

5530 PRINT AT Y, X; 

5580 PRINT AT Y,X; 

5590 FOR Q=1 TO L:PRINT * ”;:NEXT Q 
5650 PRINT AT Y,X; 

5660 FOR Q=1 TO L:PRINT “ ”;:NEXT QA 
5750 IF FS(Z,1)<> CHR$(253) THEN GOTO 
5810 

6030 PRINT AT 0,X; 

6050 PRINT AT 1,X; 

6160 PRINT AT 2'Z+2,X; 

6400 GOTO 
6490"(SW=0)+6580'(SW=1)+6770"(SW=2) 
6700 FOR X=1 TO LEN(FS$(Z)):1F 
FS(Z00=CHR$(254) THEN LET CD=CD+1:ÍF 
CD=NC THEN LET Z1=X+1:LET X=LEN(FS(Z)) 
6710 NEXT X:FOR Z=Z1 TO LEN(FS(Z)):1F 
JS(X-Z1+1)=F$(Z,X) THEN LET CR=CR+1:1F 


11,0; 
14,0; 


".N$5(1,4) 


CR=LEN(J$) THEN LET X=LEN(FS(Z)) 
6810 IF FS(Z,1)<>CHR$(253) THEN GOTO 


6870 

6820 LET FS(Z)=FS(Z, 210). 

7130 FOR Z=1 TO Z:FOR R=1 TO 
LENCFS(Z)):1F FS(Z,R)=CHRS(254) THEN LET 
CC=CC+1:1F CC=NC THEN LET Z1=R+1:LET 
R=L EN(FS(Z)) 

7140 NEXT R:LET CC=0:FOR R=1 TO 
LENCESOO):IF FS(X,R)=C CHR$(254) THEN 
LET CC=CC+1:1F CC=NC THEN LET Z2R+1:LET 
R=LEN(FSOO) 

7150 NEXT R:IF FS(Z,Z1 TO)<F$(X,Z2 TO) 
THEN LET AS=FS(Z):LET FS(Z)=FS(O):LET 
FSOO=AS | , 

7420 PRINT AT 8,0;  “ 

7450 DIM MS(N(1)+1,20) 

7480 PRINT AT 15,0; 

7500 PRINT AT 17,0; 

7520 PRINT AT 15,0; 

7550 PRINT AT 17,0: 

7800 LOAD B$ DATA NO 

7810 LOAD B$ DATA M$0 

7820 REM 

7830 REM 

7840 REM 

7850 REM 

7860 REM 

7870 REM 

7880 REM 

7890 REM 

7900 CLS 

8100 PRINT AT 9,0; 

8170 PRINT AT 19,0; 

8230 PRINT AT 9,0; 

8240 FOR Q=1 TO 80:PRINT “ ”;::NEXT QA 
8250 PRINT AT 19,0; 

8260 FOR Q=1 TO 80:PRINT “ ";:NEXT Q 
8370 IF FS(NF,1)=CHRS(253) THEN PRINT 
“ESTA FICHA ESTA BORRADA”:GOSUB 
5440:RETURN 

8390 IF F$(Z,1)=CHR$(254) THEN LET 
CC=CC+1:PRINT:PRINT MS(CC); " ";:GOSUB 
8410 

8400 PRINT FS(NF,Z); y 


MSX Y AMSTRAD: 


590 LOCATE 1,20 
2740 LOCATE 1,5 
3470 LOCATE 1,5 
3490 LOCATE 1,9 
3580 LOCATE 1,12 
3600 LOCATE 1,12 
3630 LOCATE 22,9 
3690 LOCATE 1,5 
3730 LOCATE 1,10 
3760 LOCATE 1,12 
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3780 LOCATE 1,12 
3810 LOCATE 22,10 
3870 LOCATE 1,12 
4090 LOCATE 1,12 
4150 LOCATE 1,15 
4230 LOCATE 1,7 
4260 LOCATE 1,5 
4310 LOCATE 1,1 
4370 LOCATE 1,Z 
4400 LOCATE 1,5 
4440 LOCATE 1,20 
4510 LOCATE 1,Z 
4540 LOCATE 1,5 - 
4580 LOCATE 1,1 
4740 LOCATE X,Y 
4780 LOCATE X.Y 
4800 LOCATE X.Y 

4830 IF AS=CHR$(8) AND LO>0 THEN LET 
LO=L0-1:LET D$= LETS (DS, LO):LET 
X=X-1:LOCATE Y,Y:PRINT “-.”:LOCATE 
X,Y:GOTO 4810 

4890 LOCATE X, Y 

4930 LOCATE X, Y 


5050 LOCATE X, Y 
5070 LOCATE X+19,Y 


5140 LOCATE X=19,Y 


5220 LOCATE X,Y 

5280 LOCATE X+19,Y 
5320 LOCATE X+19,Y 
5390 LOCATE X+19,Y 


- 5530 LOCATE X,Y 


5580 LOCATE X,Y 
5650 LOCATE X,Y 
6030 LOCATE X, 1 
6050 LOCATE X,2 
6160 LOCATE X,2"Z+3 
7420 LOCATE 1,9 
7480 LOCATE 1,16 
7500 LOCATE 1,18 
7520 LOCATE 1,16 
7550 LOCATE 1,18 
8100 LOCATE 1,10 
8170 LOCATE 1,20 
8230 LOCATE 1,10 
8250 LOCATE 1,20 


7 A y 


TECNICAS 
DE ANALISIS 


DISEÑO DE SISTEMAS 


AMOS a describir en 
las siguientes pági- 
nas la estructura ge- 
neral que suelen 


tes documentos en 
, que se plasma el di- 

seño de un sistema in- 
formático. Naturalmente, la organización 
general e, incluso, el contenido de un 
dossier complejo de este estilo puede 
variar mucho dependiendo de los están- 
dares que se sigan, del tipo de sistema a 
diseñar, o de las personas que lo redac- 
ten, pero vamos a presentar un esquema 
muy común de documentos y que, por 
tanto, será útil en la mayoría de los ca- 
sos que se presenten. 

Tal como se indica en el recuadro ad- 
junto, se suelen incluir cuatro partes dife- 
rentes en el dossier de análisis del siste- 
ma correspondiente; desglosadas, a su 
vez, en varios apartados, hasta un total 
de diez epígrafes diferentes. 


; — Datos generales del sistema 


Este documento normalmente es utili- 
zado a modo de presentación e identifi- 
cación del conjunto del sistema que se 


diseña. Suele contener los siguientes 


apartados: 


a) Nombre del sistema o aplicación. 
Ha de ser un nombre conciso por el que 
se pueda aludir a la aplicación comple- 
ta, pero lo suficientemente claro como 
para que a la vista del nombre las perso- 


adoptar los diferen- 


ESTRUCTURA DEL DISEÑO DE UN SISTEMA 
INFORMATICO 


A. Información general. 

1. Datos generales del sistema. 

2. Presentación del sistema. 

3. Organigrama general. 

4. Organigramas de detalle. 

Entradas y salidas. 

5. Diseño de documentos de sa- 
lida. 

6. Diseño de los datos de entra- 
da. 

. Estructura y procesos internos. 

7. Definición de cálculos. 

8. Tablas de decisiones lógicas. 

9. Datos interrelacionados e his- 
tóricos. 


Referencias y lista de contenido. 
10. Relación general de campos, 
referencias y datos utilizados. 


nas involucradas sepan de qué aplica- 
ción se trata. La identificación ha de ser 
lo más precisa posible, deslindándola de 
otras con ella relacionadas y sugiriendo 
el contenido exacto de los procesos que 
se realizan. Un nombre de dos o tres pa- 
labras suele ser lo adecuado. A veces se 
utiliza una estructura en etapas para es- 


tos nombres: por ejemplo, «Personal» 
para el sistema en general; «Personal. 
base de datos», «Personal, nominas», 


«Personal, histórico», etc., para los dife- 
rentes procesos; «Personal, nóminas, da- 
tos variables», «Personal, nóminas, coefi- 
cientes», «Personal, nóminas, altas y ba- 
jas», etc., para los procesos de detalle. 
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b) Número de la aplicación. Un núme- 
ro Oo código altanumérico (letras y núme- 
ros) para control e identificación auto- 
mática. Caben dos posibilidades: nume- 
ración sucesiva de los diferentes siste- 
mas y aplicaciones desarrollados en una 
organización o numeración en etapas 
(como se ha indicado anteriormente 
para el nombre literal) en la que se nu- 
meran con uno o dos dígitos (o letras) los 
diferentes sistemas y, dentro de cada 
uno, con otro u otros dígitos o letras los di- 
ferentes subsistemas, dentro de los cua- 
les se numeran las diferentes aplicacio- 
nes, etc. 

C) Número de revisión. Es usual tener 
que realizar sucesivos diseños de un mis- 
mo proceso. Conviene ir numerando su- 
cesivamente estas versiones diferentes 
que del mismo sistema (y su documenta- 
ción correspondiente) se van elaboran- 


do. A veces se utiliza una numeración de- 
cimal (sobre todo en documentos o siste- 
mas que se actualizan con cierta fre- 


cuencia) utilizando los números enteros 


para las versiones que aportan cambios 
sustanciales y las cifras decimales para 
las pequeñas actualizaciones, obtenién- 
dose una secuencia de revisiones del 
tipo: 2.1; 2.2; 2.3 (pequeños cambios); 
3.1 (modificaciones importantes respec- 
to de lo anterior); 3.2 (de nuevo cambios 
de poca importancia); 3.3..., etc. 

d) Departamento. Se refiere al depar- 
tamento de la empresa al que va desti- 
nado el sistema que se diseña. Depen- 
diendo de la organización de la que se 
trate, en este u otros epígrafes equivalen- 
tes se incluirá unos datos u otros; el obje- 
tivo es, sencillamente, situar en la estruc- 
tura de la empresa u organización, el sis- 
tema informático objeto de estudio. 
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NOMS aan ero Da iria dades 


Número Revisión 


Preparado por: 


rss rr ora A 


Revisado por: 


Aceptado por: 


e) Equipo. Es útil referenciar el equipo 
físico (ordenador) sobre el que va a fun- 
cionar el sistema, si existen varios en la 
organización correspondiente. En este 
apartado se pueden incluir comentarios 
sobre los periféricos que se utilizarán o 
sobre algún dispositivo especial que se 
use en este sistema. 

f) Control del trabajo de diseño. Es 
usual incluir varios casilleros donde se re- 
señen las personas que han diseñado y 
supervisado el sistema y la fecha en que 
se ha hecho. También, en ocasiones, se 
prevé una «aceptación» del diseño por 
parte del responsable del departamento 
que será usuario final del sistema una vez 
puesto en marcha. 


| , 
nn Presentación del sistema 


Descripción global del sistema donde 
se indiquen las ideas generales acerca 
del sistema que se diseña, su utilidad y fi- 
nalidad, sus parámetros representativos, 
etcétera. ' 

Deberían incluirse en esta breve pre- 
sentación descriptiva, al menos, los si- 
guientes puntos: 

a) Clasificación de la aplicación. 
Tipo de aplicación de que se trate (ge- 
nérica, particular, etc.) y finalidad a que 
se destina. 

b) Objetivo. Actividad que se trata de 
informatizar. Problemas concretos a re- 
solver. 

Cc) Utilidad. Ventajas generales que se 
derivarán de la implementación del siste- 
ma que se diseña: menores costes, tiem- 


pos de proceso más cortos, más fiabili- 
dad en los datos, obtención de datos o 
informaciones no disponibles por el siste- 
ma actual, etc. 

d) Resultados a obtener. Informes que 
se derivarán de los procesos concebi- 
dos: contenido, finalidad, etc. Presenta- 
ción global de estos informes poniendo 
el acento en su funcionalidad más que 
en su contenido o estructura formal. 

e) Datos de entrada a partir de los 
cuales se realizarán los procesos previs- 
tos; su obtención, características genera- 
les. Como en el caso d), más aspectos 
funcionales que de otro tipo. -. 

f) Volúmenes representativos de la 
aplicación. Volúmenes de datos que se 
prevén, tiempos de proceso, periodici- 
dad de la ejecución, etc. 

9) Plan de puesta en marcha. Proble- 
mas que pueden aparecer en la imple- 
mentación del sistema. Requisitos para la 
conversión de datos del sistema actual al 
propuesto o desde otras aplicaciones a 
la presente. Tareas a realizar para el 
arranque del sistema. 

h) Plan de tiempos de la puesta en 
marcha. Cuantificación y planificación 
de tiempos para las actividades del apar- 
tado anterior. 

í) Elementos hardware a utilizar. Con- 
figuración de equipo necesario (sobre 
todo si no es la configuración normal uti- 
lizada en otras aplicaciones). 

5 Posibilidades de expansión. Co- 
mentario sobre las previsiones actuales 
de modificación o expansión futura del 
sistema (si está previsto que se produz- 
can). 


OMO se distinguen 
las diferentes repre- 
sentaciones internas 
de los tipos de datos 
numéricos en los len- 
guajes de alto nivel? 
A menudo es preciso 

- = declarar explícita- 
nto lo que dsidmos que haga el or- 
denador con nuestros datos. En BASIC, 
por ejemplo, es el propio nombre de la 
variable el que decide cómo se van a re- 
presentar sus valores en la memoria del 
ordenador. Así, si definimos una variable 
cuyo nombre termina en el carácter «%» 
(tanto por ciento) el intérprete de BASIC 
sabe automáticamente que esta varia- 
ble va a tomar sólo valores enteros, y que 
deseamos que los guarde en la memoria 
como números binarios de dieciséis ci- 
fras, De igual manera, los nombres termi- 
nados en ún signo de admiración indican 
que los valores pueden contener deci- 
males, y que deben guardarse en la me- 
moria en punto flotante, con una preci- 
sión normal, ocupando un total de cua- 
tro octetos o bytes por cada valor que se 
les asigne. Por último, un nombre que ter- 
mina en el signo «4» indica que se de- 
sean guardar los valores en punto flotan- 
te, pero con una precisión doble, ocu- 
pando un total de ocho octetos por cada 
valor. En condiciones normales, los nom- 
bres que no terminan en un carácter es- 
pecial, sino en una letra corriente, se 
considerarán como variables cuyos valo- 
res se almacenan como números en pun- 
to flotante de precisión normal. Es decir, 
la ausencia de un carácter especial al fi- 
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nal del nombre se considera equivalen- 
te a la presencia del signo de admira- 
ción. 

Veamos algunos ejemplos: 


NZ VALORZ 
A! NN! X AB AB! 
N4 PIR 

DIM A(3), 


AR(2,2), A%(5) 


Las variables de la primera línea adop- 
tarán únicamente valores enteros, que 
ocuparán dos octetos. Las de la segun- 
da línea tomarán valores con decimales, 
que se guardarán en memoria como nú- 
meros en punto flotante, de cuatro octe- 
tos. Las variables de la tercera línea to- 
marán también valores en punto flotante, 
pero con más cifras decimales, ocupan- 
do ocho octetos cada una. Finalmente, 
en la cuarta línea se definen variables de 
los tres tipos, pero que además son vec- 
tores o matrices. Obsérvese que la adi- 
ción de un carácter especial al final de 
un nombre es suficiente para que se tra- 
te de una variable diferente, de manera 
que pueden existir al mismo tiempo las 
cuatro variables A, A!, A% y AF. La prime- 
ra (A) queda definida como un vector de 
tres elementos en precisión normal, por 
lo que cada elemento ocupará cuatro 
octetos y los tres juntos un total de doce 
octetos. La segunda (A!) es un escalar 
(tiene un solo valor) en precisión simple 
y ocupará cuatro octetos. La tercera 


A 


(A%) es una matriz de valores enteros de 
dos filas y dos columnas, cuyos elemen- 
tos ocupan dos octetos cada uno, lo que 
hace un total de ocho octetos. Finalmen- 
te la cuarta variable (A+) es un vector de 
cinco valores que se guardarán como 
números en punto flotante en precisión 
doble (ocho octetos cada uno), lo que 
hace un total de cuarenta octetos, 

¿Y todo esto para qué sirve? ¿Por qué 
nos importa cuál sea la precisión de los 
valores, el número de los caracteres que 
ocupan, o si están en binario entero o en 
punto flotante? Pues bien: resulta que co- 
nocer la precisión en que se encuentran 
los datos es importante. En algunos ca- 
sos, tendremos que hacer operaciones 
con decimales en las que nos interese 
que la precisión sea lo mayor posible. Tal 
vez la precisión normal (que equivale a 
unas siete cifras decimales significativas 
exactas) no baste para nuestros propósi- 
tos. En tal caso exigiremos que los cálcu- 
los se realicen con mayor precisión (pre- 
cisión doble, que equivale a unas quin- 
ce cifras decimales exactas) y añadire- 
mos al final del nombre de nuestras va- 
riables el signo «+». 

Otras veces sucede lo contrario. La 
precisión de las operaciones no es cues- 
tión que nos interese demasiado, porque 
vamos a trabajar con números enteros 
pequeños, que pueden almacenarse 
con facilidad como binarios de dieciséis 
cifras (dos octetos). Ocurre que las ope- 
raciones realizadas con números binarios 
enteros suelen ser mucho más rápidas 
que las que se llevan a cabo en punto 
flotante, y las de precisión normal más rá- 
pidas que las de precisión doble. Por tan- 
to, si la rapidez en los cálculos es nues- 
tra primera consideración, procuraremos 
que todas nuestras variables sean ente- 
ras y les pondremos nombres terminados 
en el carácter «%». 

Por último, podría ocurrir que parte de 
nuestras variables puedan tomar valores 
decimales durante la ejecución del pro- 
grama, mientras que otras serán siempre 
enteras y otras exigirán mayor precisión 
en los cálculos. En tal caso, podemos uti- 


lizar el carácter de terminación adecua- 


do para optimizar el programa y hacer 
que cada dato se encuentre en la me- 
moria en la forma interna más adecuada 
para el buen funcionamiento del conjun- 
to. Esto es especialmente útil si tenemos 
problemas de memoria disponible (es de- 


cir, si el programa es muy grande y los 
datos ocupan demasiado espacio). En 
tal caso puede ser absolutamente nece- 
sario reducir un poco el espacio ocupa- 
do por algunas variables (las que man- 
tengan siempre valores enteros peque- 
ños) para que el programa pueda llegar 
a funcionar. 

Si nuestro programa va a utilizar al mis- 
mo tiempo numerosas variables enteras, 
en precisión normal o en precisión doble, 
puede llegar a ser molesto tener que es- 
cribir tantas veces el carácter final del 
nombre que indica al intérprete cuál es 
la representación interna elegida. Para 
evitarlo, algunos intérpretes de BASIC 
permiten al programador decidir que 
ciertas letras iniciales de nombre indi- 
quen automáticamente el tipo de que se 
trata, siempre que la variable no termine 
en uno de los caracteres especiales, 
pues éstos tienen siempre precedencia. 
Veamos un ejemplo de aplicación de es- 
tas instrucciones declarativas, que de- 
ben situarse siempre al principio del pro- 
grama: 


DEFINT N 
DEFDBL A-E 


La instrucción DEFINT N le dice al intér- 
prete de BASIC que deseamos que toda 
variable cuyo nombre comience por N y 
no termine en uno de los caracteres es- 
peciales debe ser considerada como ente- 
ra (integer en inglés). En cuanto a la ins- 
trucción DEFBDBL A-C, indica que las va- 
riables que comiencen porA,BoCyno 
terminen en los caracteres especiales 
serán automáticamente variables en 
punto flotante en doble precisión. Si es- 
tas dos instrucciones hubieran aparecido 
en nuestro programas antes de la utiliza- 
ción de las variables que vimos más arri- 
ba, la representación interna de éstas 
habría cambiado de la siguiente mane- 
ra: la variable N, que en ausencia de la 
instrucción DEFINT habría tenido valores 
en punto flotante en precisión normal, 
pasará a recibir valores binarios enteros. 
Las variables N*, N% y NI no se verán 
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afectadas. Y las variables AB y A, que de 
no haberse dado la instrucción DEFDBL 
habrían tenido también precisión normal, 
tendrán ahora precisión doble, ocupan- 
do un espacio doble en memoria del que 
antes requerían. Las variables A+, A%, A! 
y AB! no se verán afectadas. 

En el lenguaje PASCAL, toda las varia- 
bles que se utilicen en un programa de- 
ben ser definidas previamente en la sec- 
ción declarativa. Por tanto, no existen re- 
glas de declaración implícita del tipo, 
como en BASIC. Siempre hay que decla- 
rar explícitamente el tipo de cada una. 
Veamos, como ejemplo, la parte declara- 
tiva del programa de cálculo de interés 
compuesto que vimos en el capítulo 5: 


program INTERES; 
(k Declaración de las variables 1%) 
var 
nr, na, Mm, ni: integer; (% contadores %) 
cereal; (% capital *) 
r, as arrayC1..101 of integer; 
(k réditos y años X) 
iz arrayl1..10,1..10] of real; 
(X tabla de intereses NS 


Se observará que el valor del capital 
(variable c) se ha declarado como varia- 
ble «real» (esto es, sus valores se almace- 
narán como números en punto flotante). 
Esto se debe a que, en la mayor parte de 
los compiladores de PASCAL, los números 
enteros se representan internamente 
como binarios de dieciséis cifras, por lo 
que deben estar comprendidos entre 
-32768 y.32767. Como en este programa 
deseamos utilizar números mayores, nos 
vemos obligados a seleccionar el tipo 
real para el capital. Lo mismo ocurre, na- 
turalmente, con los intereses (variable ¡), 
aunque en este caso tenemos ademas 
que disponerlos en forma de matriz de 
diez filas y diez columnas. En cambio, 
como los réditos y los tiempos de inver- 
sión (variables r y a) toman siempre valo- 
res pequeños, y como en este caso con- 
creto sólo nos interesan réditos enteros, 
podemos definirlos como tales utilizando 
el tipo «integer». Si quisiéramos aplicar 
este programa a casos en que la tasa de 
interés (el rédito) pudiera ser fracciona- 
rio (por ejemplo, igual a 8,5), tendríamos 
que cambiar la parte declarativa del 
programa, definiendo como “real”. 
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program INTERES; 
(x Declaración de las variables Xx) 

var 

nr, nas m, n: iantegerz (X*X contadores k) 
c:real3 (%* capital Xx) 

a: array[1..10] of integer; (kk años Y) 
ri arrayl1..10] of real; (% réditos Xx) 
ii array[1..10,1..101 of real; 

(Ek tabla de intereses Xx) 


En los intérpretes de APL existen tres for- 
mas principales de almacenamiento in- 
terno de los datos: las variables cuyos va- 
lores son todos iguales a cero o a uno se 
almacenan como conjuntos de números 
binarios de una sola cifra, empaqueta- 
dos, por lo que ocupan tantos octetos 
como el cociente de dividir entre ocho 
el número de sus elementos (redondea- 
do al entero inmediato superior). Las va- 
riables cuyos valores sean enteros com- 
prendidos entre -32767 y 32767 se alma- 
cenarán en formato binario de dieciséis 
cifras, ocupando dos octetos por ele- 
mento. Por último, las restantes variables 
se guardan en punto flotante y en doble 
precisión, ocupando ocho octetos por 
elemento. 

Sin embargo, el programador de APL 
no tiene que preocuparse por esto en 
absoluto. Pues, en efecto, el propio intér- 
prete selecciona el formato adecuado 
para los datos en función de sus valores, 
y elige siempre aquél en que la variable 
ocupa el menor espacio posible. Ade- 
más, si el valor de la variable o de algu- 
no de sus elementos cambia durante la 
ejecución del programa, de manera que 
la representación interna que había teni- 
do hasta ahora ya no es aplicable, el in- 
térprete realiza automáticamente las 
conversiones adecuadas, sin que el pro- 
gramador tenga que ser consciente de 
ello. Por esta razón, se dice que en el len- 
guaje APL tan sólo hay dos tipos externos 
de datos: números y caracteres, lo que 
facilita considerablemente la programa- 
ción eliminando además una fuente de 
considerable número de errores que 
afecta con frecuencia a otros lenguajes 
de programación. 


1 Datos literales 


Los datos literales son los que contie- 
nen información alfabética. En casi todos 
los lenguajes, los datos literales se intro- 


ducen en los programas en forma de ca- 
denas de caracteres encerrados entre 
comillas. En BASIC, por ejemplo, estas co- 
millas tienen que ser dobles, y los carac- 
teres incluidos en una cadena pueden 
contener cualquier cosa excepto la do- 
ble comilla. Esta, sin embargo, como 
cualquier otro carácter, se puede obte- 
ner de otra manera que ahora veremos. 

Internamente, los caracteres se repre- 
sentan, como es natural, mediante nú- 
meros binarios. En los ordenadores mo- 
dernos, un carácter se considera siempre 
equivalente a un octeto o byte, es decir, 
a ocho cifras binarias (ocho bits). Puede 
comprobarse con facilidad que con 
ocho dígitos binarios pueden escribirse 
exactamente 256 números distintos, que 
corresponden a los números decimales 
comprendidos entre 0 y 255. Por tanto, 
podremos definir 256 caracteres diferen- 
tes, a cada uno de los cuales les corres- 
ponderá una de esas representaciones 
internas. 


Por supuesto, existen millones de repre- 
sentaciones internas posibles para los 
caracteres. Por ejemplo, podría haberse 
decidido que la letra «A» fuera interna- 
mente el número binario 00000001 (que 
corresponde al decimal 1) y la «B» estu- 
viera representada por el binario 
00101010 (que corresponde al decimal 
42), o podría adoptarse otra equivalen- 
cia totalmente diferente. La tabla que 
hace corresponder a cada carácter un 
número binario (o el decimal equivalen- 
te) se llama «código». 


En la mayor parte de los ordenadores 
personales se ha adoptado el código AS- 
Cll, llamado así porque esas letras son las 
siglas de «American Standard Code for In- 
formation Interchange» (código patrón 
americano para intercambio de informa- 
ción). Este código define únicamente el 
significado de 94 caracteres representa- 
bles, más el espacio en blanco y 33 de 
control dejando cierta libertad para la 
definición de los 128 caracteres restan- 
tes. La tabla siguiente presenta la parte 
común a todos los códigos ASCII de los 
distintos ordenadores personales. La pri- 
mera columna contiene el código deci- 
mal equivalente al número binario que 


representa al carácter. La segunda co- 


lumna es el carácter correspondiente. 
Los caracteres comprendidos entre los 
códigos 0 y 127 que no aparecen en la 


as 


tabla son caracteres de control, no re- 
presentables. Algunos se emplean para 
pasar página en las impresoras, o para 
otros menesteres parecidos. 


CODIGO CARACTER CODIGO CARACTER 


Retroceso N 
Paso linea 
Retorno 
Espacio 


X<xXECCANIOTVO 


ES 


le ¿eos CON 


A 


¿2 —ANXXECERFNTODOITAPAU ARTO ANMON OM al 


/ 
o 
1 
2 
3 
4 
E] 
6 
Y: 
[=] 
bo) 
5 
< 
= 
> 
? 
a 
A 
B 
(my 
D 
E 
F 
G 
H 
1 
J 
K 
L 
M 


Pues bien: en BASIC existe una segun- 
da manera de obtener caracteres, que 
ope en utilizar la función CHR$, que 

licada a un número (el código del ca- 
cial devuelve el carácter correspon- 
diente. Por ejemplo, CHR$(78) es la letra 
N, y, por tanto, equivale totalmente a la 
cadena “N”, expresada entre comillas 
dobles. Pero esta función puede em- 
plearse en cualquier caso, incluso para 
obtener caracteres que no pueden po- 
nerse entre comillas, como la doble co- 
milla, CHR$(34), el retorno de carro, 
CHRSC1 3), así como cualquiera de los ca- 
racteres de control y de los que corres- 
ponden a la parte no común de los có- 
digos ASCII, los comprendidos entre 128 
y 255, que varían de ordenador en orde- 
nador. 


LOGO 


Cómo repetir 
comandos 


N este momento, to- 
dos sabemos ya ha- 
cer un cuadrado. Los 
comandos podrían 
ser: 


? AV 50 GD 90 
? AV 50 GD 90 
? AV 50 GD 90 


7? AV 50 GD 90 


, Como podemos ver, escribimos cuatro 
lineas de comandos que son exactamen- 
te iguales, es decir, repetimos lo mismo 
cuatro veces. 

Para evitar el tener que escribir varias 
veces las mismas Órdenes, la tortuga dis- 
pone del comando 


REPITE n (lista de comandos) 


donde n indica el número de veces que 
queremos que la tortuga ejecute la lista 
de órdenes que ponemos entre corche- 
tes. 

Así, el dibujar el cuadrado resultará 
mucho más fácil. Nos basta con poner: 


Vamos a probar ahora con un triángu- 
lo. El conjunto de comandos: 


7 AV 50 GD 120 
? AV 50 GD 120 


2 AV 50 GD 120 


queda reducido a una sola orden si utili- 


zamos el comando REPITE: 


Silo que queremos dibujar es un pentá- 
gono | 


escribiremos 


No sabemos qué número de grados ha 
de girar la tortuga. Para conocerlo, va- 
mos a usar un truco. 


En cualquier figura que sea cerrada y 
cuyos lados no se cortan, la suma de to- 
dos sus ángulos vale 360 grados. Por tan- 
to, para saber cuál es el valor de cada 
ángulo de un polígono regular tenemos 
que dividir el valor total (360) entre el nú- 
mero de ángulos. Es igual que cuando te- 
nemos, por ejemplo, 100 caramelos y 
queremos repartirlos entre nuestros 5 
amigos: 


100 caramelos: cinco amigos = 20 cara- 
melos para cada amigo 


Con esto, ya podemos saber cuánto ha 
de girar la tortuga para pintar nuestro 
pentágono: 


360:5=72 
El comando queda así: 


Y REPITE 5 CAV 50 6b 721 


Lo que ocurre es que cada vez que 
queremos dibujar una figura de este tipo, 
primero tenemos que hacer una división 
para saber cuánto debe girar la tortuga. 

Esto también lo podemos evitar hacien- 
do que sea la propia tortuga la que cal- 
cule este valor, pero ¿cómo? Pues muy 
fácil. Nuestra tortuga sabe sumar, restar, 
multiplicar y dividir. Por tanto, podemos 
decirle que haga ella la división. 

Teniendo esto en cuenta, la orden que 
haría que la tortuga dibujara el pentágo- 
no sería: 


Como vemos, la división se representa 
mediante la barra inclinada (/). 
En el caso de que quisiéramos dibujar 


un triángulo, pondríamos: 


7 REPITE 3 [AV 50 6D 350/31] - 
dl A 
7 LJ 


La división de 360 entre 3 da 120. Por ello, 
al querer pintar un triángulo en otras oca- 
siones hemos hecho que la tortuga gira- 
se este número de grados y no 60. 


O ¡Una fórmula general 
para polígonos 


Después de haber dibujado varios po- 
lígonos (triángulo, cuadrado, pentágo- 
no) podemos ver que para todos el co- 
mando REPITE es muy deca 


triángulo: 
REPITE 3 (AV 50 GD 360/3) 


cuadrado: 
REPITE 4 (AV 50 GD 360/4) 


pentágono: 
REPITE 5 (AV 50 GD 360/5) 


En todos hacemos lo siguiente: 


— Primero, ponemos REPITE. 

— Luego, un número que indica el nú- 
mero de lados (o de ángulos, ya que 
coinciden) que tiene la figura. 

— Enla lista de órdenes (entre corche- 
tes) ponemos: 

— Avanzar un número de pasos. 

— Girar una cantidad que se obliene 
dividiendo 360 entre el número de ángu- 
los. 


Por tanto, en general, cuando quera- 
mos dibujar cualquier polígono, el co- 
mando será así: 

REPITE número-lados (AV longitud GD 
360/número-lados) 

Con esto ya podemos pintar polígonos 
que tengan distinto número de lados y, 
además, sin necesidad de tener que es- 
cribir muchos comandos: solamente uno. 


¡O Os proponemos 


1. Utilizando la fórmula general pue- 
des pintar diferentes poligonos. Por ejem- 
plo: 


hexágono : 6 lados 
heptágono : 7 lados 
octógono : 8 lados 
eneágono : 9 lados 
decágono : 10 lados 
endecágono : 11 lados 
dodecágono : 12 lados 


3 LOGO 


2. Intenta dibujar un rectángulo usan- 
do el comando REPITE. Es muy fácil, fijate 
bien cómo lo haces sin utilizar este co- 
mando. Por ejemplo: 


3. Pinta esta estrella con el comando 
REPITE. Para ello, sustituye en la fórmula 
general para pintar polígonos el número 
de lados por el número de puntas y 360 


por 720. 


* 


.-.. : 
O Circunferencias 


Al dibujar los diferentes polígonos, po- 
demos ver que según aumenta el núme- 
ro de lados, la cantidad de grados que 
la tortuga va girando es cada vez más 
pequeña. Esto es lo mismo que si tene- 
mos los 100 caramelos de antes, pero 
cada vez queremos repartirlos entre más 
amigos. 

Además, al aparecer cada polígono 
en la pantalla, conforme aumenta el nú- 
mero de lados, la figura se va parecien- 
do más a una circunferencia. 

Por tanto, podemos dibujar una circun- 
ferencia usando el comando REPITE. Para 


ello, la tortuga tiene que girar muy poqui- 
to cada vez y la figura ha de tener un nú- 


. mero de lados muy grande, en concreto 


360. Entonces, si ponemos: 


? REPITE 360 [AY 1 GD 11 
A a 


Para hacer una circunferencia más 
grande, tenemos que aumentar el núme- 
ro de pasos del comando AV. 

Así, si escribimos: — ' 


/ ? REPITE 360 TAV 2 6D 11 
A E 


y 


nos quedará, si no hemos borrado la cir- 
cunferencia anterior: 


Lo que ocurre es que esta orden resul- 
ta muy pesada para la tortuga y tarda 
bastante en ejecutarla, ya que tiene que 
hacer 360 veces lo que hemos puesto en- 
tre corchetes. 


Si escribimos la orden de esta otra ma- 
hera: 


obtenemos el mismo resultado (una cir- 
cunferencia), pues lo único que hace- 
mos es quitarle un cero (0) al 360 (nos 
queda 36) y ponérselo al 1 (nos queda 
10). Además, la tortuga tarda menos en 
ejecutarla. 

Vamos a dibujar dos circunferencias. Si 
ponemos los comandos: 


2 REPITE 36 [AV 3 GD 103 


7? REPITE 36 [AV 3 61 101 


En resumen, para dibujar circunferen- 
cias hemos de poner: 


REPITE 36 (AV tamaño GD 10) 
Oo 
REPITE 36 (AV tamaño Gl 10) 


' Os proponemos 


1. Pinta esta mariposa. 


2. Puedes dibujar un camión. 


nn; 


3. También puedes hacer un gato. 


ñ 


4. Intenta pintar los aros olímpicos, 
usando distinto color para cada círculo. 


negro 


azul Y rojo 


amarillo verde 
5. Atrévete con esta figura. 


4 


6. ¿Qué te parece esta bicicleta? 


En 


PASCAL 


0 La estructura variable Cuenta como “contador de pro- 
p= 


FOR grama”. 

N el programa Repi- Es tan habitual tener que repetir instruc- 
teEscribe que vimos ciones o bloques de instrucciones un nú- 
al estudiar la estruc- mero fijo de veces, que el PASCAL dispo- 
tura REPEAT se ejecu- ne de una estructura específica para 
taban las instruccio- ello: la estructura FOR. 

nes del bucle un nú- 

mero preestablecido Con ella, el programa equivalente a 


de veces utilizando la RepiteEscribe podría quedar: 


program RepiteEscribeConFor; 
var Cuenta: integer; 
begin 
for Cuenta:= 0 to 5 do vwriteln (*Cuenta= ”, Cuenta); 
end. 


Nuevamente, en.la pantalla aparece- La estructura es la siguiente: 


FOR (contador:= primer valor) TO (último 
valor) DO (instrucción) 


Tras la palabra reservada FOR se escri- 
be la expresión de asignación del primer 
valor al contador de programa (Cuen- 

ta:= 0); tras ello siguen la palabra reser- 
cal vada TO, el último valor que tomará el 
Cuenta= contador (5), la palabra DO y, por fin, la 
pla | instrucción a repetir que, como siempre, 
Cuenta= puede ser simple o estructurada. 

Al ejecutarse el programa, cuando se 
llega a una estructura FOR, al contador 
de programa se le asigna el primer valor. 
Tras ello se ejecuta la instrucción y el 
contador pasa a tomar el siguiente valor 
de manera automática, volviéndose a 
ejecutar la instrucción nuevamente y a 


variar el contador, etc., hasta que, por 
fin, la instrucción se ejecuta teniendo el 
contador el valor especificado como úl- 
timo, momento tras el cual se pasa a eje- 
cutar lo siguiente a la estructura. 


Traduciendo del inglés: 


FOR Cuenta:= O 

Para Cuenta valiendo desde Ú 
TO E] DO writeln... 
hasta Ss hacer writeln... 


Para especificar los valores inicial y fi- 
nal se puede utilizar cualquier expresión 
que proporcione un resultado del mismo 
tipo que la variable utilizada como con- 
tador. 


Aspectos importantes: 


— El valor final se calcula nada más 


llegar a la estructura FOR; por ello, si al- 


guno de los elementos de la segunda ex- 
presión cambiara durante alguna de las 
repeticiones del' bucle, el valor final no 
se vería afectado. Por ejemplo, si N y 
Tope son variables INTEGER: 


Tope:= 10; 
for N:=1 to Tope do 
begin 
writeln (N); 
Tope:= 1000 
end; 


Tope pasará de valer 10 a valer 1000, 
pero sólo se sacarán los valores de Nhas- 
ta llegar a 10, que era el valor de Tope 
cuando se llegó a la estructura FOR. 


— Si el valor final fuese anterior al ini- 
cial, no se ejecutarian ni una vez las ins- 
trucciones del bucle: 


for Cuenta:= 5 downto 0 do 
Writeln (*Cuenta= ”,Cuenta);3 


Tope:= 5; 
for N:=10 to Tope do writeln (N); 


así, N no se llega a escribir nunca (es de- 
cir, la comprobación de llegada al valor 
final se hace antes de ejecutarse la ins- 
trucción). 


La variable de control no puede ser de 
cualquier tipo. Sólo el tipo INTEGER y 
aquellos otros que tienen asociados nú- 
meros ordinales son admisibles (junto 
con sus posibles subrangos), es decir, 
aquellos tipos cuyos posibles valores es- 
tán ordenados y con los que se pueden 
usar las funciones PRED, SUCC y ORD. Por 
ahora sólo hemos visto el tipo CHAR (y el 
BOOLEAN). Podríamos, por tanto, escribir: 


program ARC; 
var C: char; 
begin 


for C:= ?A* to *2* do write (0) 
end. 


Al correr el programa saldrá por la pan- 
talla: 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 


Existe una forma alternativa de la es- 
tructura FOR para cuando se desea que 
la variable de control vaya cambiando 
de valor en orden inverso al normal. Con- 
siste en usar la palabra reservada DOWN- 
TO en lugar de TO. 


En el programa RepiteEscribeConFor 
podríamos poner: 


“ PASCAL 


Esta vez, en la pantalla aparecerían los 
números en orden inverso al anterior. 
La traducción del inglés sería: 


FOR Cuenta:= 5 DOWNTO 


Para Cuenta valiendo desde S para abajo hasta 
(0) DO 
O hacer... 
El segundo aspecto antes mencionado 
es aquí el inverso. Con: 


no se llegaría a escribir nada. 


program DobleFor; 


const 
UltimaFila 
UltimaColumma = 10; 


var 


begin 


begin 
writeln; 


writeln 
end 


Por último, dos advertencias y un con- 
sejo dirigidos fundamentalmente a: los 
expertos en BASIC: 


— El valor del contador de programa 
al acabar de ejecutarse la estructura FOR 
puede que sea el siguiente al especifica- 
do como final, pero puede que no; de- 
pende de cada compilador en concreto. 

— No se debe alterar el valor de la va- 
riable de control mediante ninguna ins- 
trucción dentro del bucle: podrían suce- 


(kx Este programa saca todas las casillas 
del tablero del juego de los barquitos X) 


= Ag 


Fila 2 >A*..UltimaFila; 
Columna: 1..UltimaColuma; 


for Fila:= *A” to UltimaFila do 
(kx Para cada fila empezando por la A, 
sacar todas sus casillas: x) 


writeln (*En la fila ”,Fila,” tenemos: ”); 
for Colummaz= 1 to UltimaColumnma do 
write (Fila,Columa,” ?); 


- Igualmente podríamos hacer con el 


tipo CHAR: 


program ZYX; 
var C: char; 


begin + 
for C:= *Z” downto *?A” do write (C) 
end. 


La estructura FOR es a su vez una ins- 
trucción estructurada, y, por tanto, po- 
dría formar parte de la instrucción a re- 
petir en otra estructura FOR: 


der cosas imprevistas. Por tanto, No se 
deben hacer cosas como: 


for N:=-100 to 100 do 
begin 

mate 13 

:=117 
end; 


0 EA A TI O TFT 


— El único tipo de contador numérico 
admitido es el INTEGER, y además sólo se 
admiten incrementos de 1 (o de -1 con 
DOWNTO). Por ello, lo mejor para cuando 
se desean variaciones distintas de la uni- 
a es utilizar una estructura REPEAT o 

HILE: 


program De2en2; 
var Cuenta: integer; 
begin 
Cuenta:= 0; 
repeat 
writeln (”Cuenta= ”,Cuenta); 
Cuenta:= Cuenta + 2 
until Cuenta > 20 
end. 


¡O Diseño de un programa 


Ahora que ya conocemos las principa- 
les estructuras de, control del PASCAL, va- 
mos a desarrollar un programa que utili- 
ce algunas de ellas. 

Este programa va a servir para dibujar 
en la pantalla tres tipos de figuras: cua- 
drados, pirámides y rombos. Un boceto 
del programa podría ser: 


1. Preguntar qué tipo de figura se de- 
sea. ' 

2. Preguntar de qué tamaño. 

3. Dibujar.la figura deseada. 


Para poder dibujar varias figuras sin te- 
ner que arrancar el programa cada vez, 
podriamos cambiar su estructura a la si- 
guiente: 


Repetir lo siguiente... 


1. Borrar la pantalla. 
2. Preguntar qué tipo de figura se de- 
sea. 


program Dibujos; 


const 


3. Preguntar de qué tamaño. 
4. Dibujar la figura deseada. 
5. Preguntar si se desea seguir. 


... hasta que no se desee seguir. 


Ya hemos visto sobrados ejemplos so- 
bre cómo hacer los apartados 1,2, 3 y:5. 
Sin embargo, el punto 4 es más comple- 
jo; podría ser algo asi: 

— Si se desea un cuadrado entonces: 

Pintar un cuadrado. 
Pero si no, entonces: 
— si es una pirámide lo deseado: 
Pintar una pirámide. 


y si tampoco es una pirámide: 
Pintar un rombo. 


Una pirámide podría tener el siguiente 
aspecto: 


Es decir, una pirámide está formada 
por una serie de filas que constan cada 
una, en primer lugar, de una secuencia 
de espacios en blanco, que es más cor- 
ta cuanto más baja sea la fila; a conti- 
nuación viene una secuencia de asteris- 
cos que, por el contrario, va haciéndose 
más larga. 

Un rombo podemos suponer que está 
formado por dos pirámides, puesta una 
contra la otra. 

. Por último, un cuadrado es simplemen- 
te un número dado de filas con una can- 
tidad constante de asteriscos. 

Podemos pasar ya a escribir el progra- 
ma: | 


TotalMaximo = 203 TotalMinimo = 4; 


var 
C, Tipo 


2 char; 


Fila, Columna, Total: integer; 


OK 


begin -. 
repeat (* repetir todo Xx) 


: boolean; 


ClrScr; 


(X esto borra la pantalla k) 


(x Si hace falta, cambiarlo por PAGE, o 
por lo que necesite nuestro compilador: 1%) 


PASCAL 


write (*¿Cíuadrado),Rí(ombo),Plirámide)? ?); 
repeat 

readin (Tipo); 

OK:=(Tipo="C”*) or (Tipo="R*) or (Tipo="P”); 

if not OK then writeln (*No vale, repita.”) 
until OK; 


write (*¿Tamaño? *); 
repeat 
readin (Total); 
OK:= falsez(%* se supone mala respuesta a priori k) 
if Total > TotalMaximo then 
writeln (*Demasiado, repita.”) 


if Total < TotalMinimo then 
writeln (*Demasiado poco, repita.”) 
else 
OKz= true (*X se da por bueno X) 


if Tipo=*"C* then 


for Fila:=1 to Total do 
begin 
for Columma:=1 to Total do write(*x”); 
(kx tras cada fila, saltar a la siguiente k) 
writeln 


if Tipo=”P”? then 


for Fila: 1 to Total do 
begin 

for Columna: 

write(”? ?) 

for Columna: 


= 1 to Total-Fila do 
3 


= 1 to 2k*Fila do write(*x”); 


(k Pintar una pirámide bajita: 
for Fila:= 1 to Total div 2 do 
begin 
for Columa:= 1 to Total div 2 - Fila do 
write” Js 
for Columna: 
writeln 
end; 


1 to 2xFila do write(**x”); 


(k Pintar otra pirámide invertida: X) 
for Fila:= 1 to Total div 2 do 
begin 
for Columa:= 1 to Fila do vrite(t” 
for Columa:= 1 to Total-2*Fila do 
write(*x”); 
writeln 
end 
end; 
(k========os=ocmm==o=========o= 


write (¿Sigo? (S/N) ”)3 readln (C);3 


until C="N” 


El desarrollo que se ha hecho de este 
programa, descomponiéndolo en tareas 
más sencillas, éstas a su vez en otras, y 
así hasta llegar a unas que sean fácil- 
mente convertibles en instrucciones de 


programa, hace que la posibilidad de 
error disminuya mucho. Más adelante ve- 
remos que esto se pude sistematizar en 
PASCAL de una menera muy cómoda me- 
diante el empleo de “procedimientos”. 


NIX es un sistema 
operativo multiusua- 
rio (de tiempo com- 
partido o “time sha- 
ring"). Esto, ¿qué 
quiere decir? Pues 
sencillamente que 
UNIX permite a varios 
usuarios compariik los recursos del orde- 
nador, dando la apariencia de que tie- 
nen un equipo para cada uno. La expli- 
cación “técnica” de este fenómeno es 
bien simple: el sistema operativo hace 
que el procesador central de la máqui- 
na atienda a cada usuario durante un 
determinado intervalo de tiempo. Como 
los equipos cada vez son más rápidos, 
los usuarios no perciben que realmente 
sólo disponen del ordenador para ellos 
solos durante esos pequeños intervalos, 
dando así la apariencia de continuidad. 

Históricamente, Unix es un producto 
que salió de los laboratorios Bell (perte- 
necientes a la compañía AT8T). Su prime- 
ra versión fue escrita por Ken Thompson 
entre 1968 y 1970 para un miniordenador 
PDP-7 de Digital Equipment Corporation. 
Al poco tiempo se le unió Dennis Richie 
(creador del lenguaje de programación 
C), junto con el cual escribió una nueva 
versión para los PDP-11, y fue en 1973 
cuando reescribían UNIX en lenguaje C, 
también para los PDP-11. 

En 1978 UNIX se comercializa por pri- 
mera vez con el nombre de UNIX Version 
7. Con el paso del tiempo, el sistema va 
mejorando e incorporando nuevas utili- 
dades, razón por la cual van surgiendo, 
lógicamente, nuevas versiones. Así, en 
1982 aparece la versión UNIX System lll, y 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS: UNIX 


en 1983 UNIX System V. Al margen de es- 
tas versiones, todas ellas originadas en la 
propia ATT, han aparecido otras prove- 
nientes de otras companias o centros de 
investigación, entre las cuales es de des- 
tacar XENIX (de Microsoft), y las series 
BSD de la Universidad de Berkeley. 


m Características generales 


- Las características más relevantes de 
UNIX son las siguientes: 


— A diferencia de la mayoría de los 
sistemas operativos, que están escritos 
en el lenguaje ensamblador de la máqui- 
na a la que van destinados, UNIX está es- 
crito en un lenguaje de alto nivel como 
es el C, de ahí su alto grado de portabi- 
lidad, es decir, la facilidad de ejecutar 
los programas escritos sobre UNIX sobre 
distintas máquinas, sin tener que hacer 
cambios en los mismos. 

— Tiene una estructura de ficheros je- 
rarquizada, es decir, en forma de árbol 
invertido, el cual nace de un directorio 
raíz que contine ficheros y subdirectorios, 
los cuales, a su vez, contienen otros fi- 
cheros y/o subdirectorios, creándose así 
una estructura ramificada “hacia abajo”. 

— La interface con el usuario es fácil- 
mente modificable. Esta interface la 
compone un intérprete de comandos (la 
“shell”, que además dispone de su pro- 
pio “lenguaje de programación”. El decir 
que es fácilmente modificable significa 
que se podría adaptar para que fuera 


TEXTO.DOC 


PRACTICA.BAS NOMINA.COB 


CARTA 


CONTAB.COB 


BASE.PAS 


¡ A Esquema del sistema de ficheros de UNIX. Los directorios están representados por 


rectángulos, y los ficheros por círculos. 


guiando al usuario en las acciones a rea- 
lizar, de manera que la complicada sin- 
taxis de UNIX fuera transparente para él. 

— Se puede redireccionar la entrada 
y la salida. Esto significa que el resultado 
de la ejecución de un programa o de un 
comando (que en el fondo no es más 
que otro programa), se puede llevar a 
cualquier sitio, ya sea un fichero en dis- 
co como un dispositivo periférico (por 
ejemplo, la pantalla). 

— Es un sistema operativo multitarea, 
lo cual permite a cada usuario ejecutar 
distintos trabajos con aparente simulta- 
neidad. 

— Permite trabajar en modo multiusua- 
rio, o lo que es lo mismo, tiene la posibi- 
lidad de tener activados simultáneamen- 
te varios puestos de trabajo. 

— Se pueden comunicar distintos pro- 
cesos mediante “pipe-lines” (tuberías), 
de manera que la salida de un proceso 
puede ser la entrada de otro, y la salida 
de éste la entrada de un tercero... y así 
sucesivamente. 

— Permite el intercambio de mensajes 
entre usuarios, ya sea por medio de “bu- 


zones de cartas”, o mediante comunica- * 


ción interactiva entre ellos. 


No hay que perder de vista, de todas 
formas, algunos de los inconvenientes de 
UNIX. Por una parte, su mayor potencia 
implica una mayor dificultad en su apren- 
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dizaje (muy superior a la de otros siste- 
mas operativos como CP/M o MS/DOS). 
Esto es debido en gran parte al elevado 
número de comandos de que dispone, y 
a la engorrosa y complicada sintaxis de 
los mismos, lo que hace que UNIX no sea 
muy apto para los principiantes. Otro fac- 
tor que hay que tener en cuenta es que 
el elevado número de versiones, todas 
ellas con mayor o menor grado de in- 
compatibilidad, podrían hacer difícil su 
estandarización, aunque la compañía 
creadora de UNIX, AT4T, ha dejado clara 
su intención de hacer del UNIX System V 
un estándar del mercado. 
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